14 lines
176 B
Scheme
14 lines
176 B
Scheme
(define deck
|
|
(shuffle new-deck))
|
|
|
|
(define hand
|
|
(list))
|
|
|
|
(deal! deck hand)
|
|
(deal! deck hand)
|
|
(deal! deck hand)
|
|
(deal! deck hand)
|
|
(deal! deck hand)
|
|
|
|
(display hand)
|
|
(newline)
|