blob: 04e10a89dd7481e2ba4372c274c794a91b15d67b (plain) (tree)

23237bb ^ f5db520 23237bb generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-26 09:26:12 +0000 f">bf deck))))) ) (define (make-ordered-deck) (define (make-suit s) (map (lambda (rank) (word rank s)) '(A 2 3 4 5 6 7 8 9 10 J Q K)) ) (se (make-suit 'H) (make-suit 'S) (make-suit 'D) (make-suit 'C)) ) (define (make-deck) (define (shuffle deck size) (define (move-card in out which) (if (= which 0) (se (first in) (shuffle (se (bf in) out) (-1+ size))) (move-card (bf in) (se (first in) out) (-1+ which)) )) (if (= size 0) deck (move-card deck '() (random size)) )) (shuffle (make-ordered-deck) 52) )