Playing cards: Difference between revisions

m
fixing small syntax error
m (syntax highlighting fixup automation)
m (fixing small syntax error)
Line 6,269:
(set-box! deck (shuffle (unbox deck))))
 
;; deal a card from tAthe 2 3 4 5 6 7 8 9 10 J Q K>;deck:
enum Suit he deck:
(define (deck-deal deck)
(begin0 (first (unbox deck))
2

edits