blob: 1c1c6bb84c003945a8927e3d10e17d6f86531244 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
(define (twenty-one strategy)
(define (play-dealer customer-hand dealer-hand-so-far rest-of-deck)
(cond ((> (best-total dealer-hand-so-far) 21) 1)
((< (best-total dealer-hand-so-far) 17)
(play-dealer customer-hand
(se dealer-hand-so-far (first rest-of-deck))
(bf rest-of-deck)))
((< (best-total customer-hand) (best-total dealer-hand-so-far)) -1)
((= (best-total customer-hand) (best-total dealer-hand-so-far)) 0)
(else 1)))
(define (play-customer customer-hand-so-far dealer-up-card rest-of-deck)
(cond ((> (best-total customer-hand-so-far) 21) -1)
((strategy customer-hand-so-far dealer-up-card)
(play-customer (se customer-hand-so-far (first rest-of-deck))
dealer-up-card
(bf rest-of-deck)))
(else
(play-dealer customer-hand-so-far
(se dealer-up-card (first rest-of-deck))
(bf rest-of-deck)))))
(let ((deck (make-deck)))
(play-customer (se (first deck) (first (bf deck)))
(first (bf (bf deck)))
(bf (bf (bf deck))))) )
(define (make-ordered-deck)
(define (make-suit s)
(every (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) (- size 1)))
(move-card (bf in) (se (first in) out) (- which 1)) ))
(if (= size 0)
deck
(move-card deck '() (random size)) ))
(shuffle (make-ordered-deck) 52) )
; 32
|