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

Fork as a new paste.

Paste viewed 361 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