PasteRack.org
Paste # 66288
2019-05-07 23:52:19

Fork as a new paste.

Paste viewed 151 times.


Embed:

  1. #lang racket
  2.  
  3. (struct card (suit rank))
  4.  
  5. (define aceOfSpades (card 'spades 'ace))
  6. (define threeOfHearts (card 'hearts 3))
  7. (define jackOfDiamonds (card 'diamonds 'jack))
  8. (define sevenOfClubs (card 'clubs 7))
  9.  
  10. (define ans (card-suit aceOfSpades))
  11. (writeln ans)

=>

spades