| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'data/examples/blackjack/cards.fate')
| -rw-r--r-- | data/examples/blackjack/cards.fate | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/data/examples/blackjack/cards.fate b/data/examples/blackjack/cards.fate index e85bff6..6868650 100644 --- a/data/examples/blackjack/cards.fate +++ b/data/examples/blackjack/cards.fate @@ -8,7 +8,7 @@ (local (lambda (list card) (string)) card_generator) -(set card_generator +(set! card_generator (lambda ( (string family) ) (map (lambda @@ -50,20 +50,20 @@ (local int aces_count) (local int maybe_better_score) - (set (at result) 0) + (set! (at result) 0) (foreach (at deck) card - (set (at result) (+ card.score (at result))) + (set! (at result) (+ card.score (at result))) (if (= (var card.number) 1) - (set aces_count (+ aces_count 1)) + (set! aces_count (+ aces_count 1)) ) ) (while (> aces_count 0) - (set maybe_better_score (+ (at result) 10)) + (set! maybe_better_score (+ (at result) 10)) (if (=< maybe_better_score 21) - (set (at result) (var maybe_better_score)) + (set! (at result) (var maybe_better_score)) ) - (set aces_count (- aces_count 1)) + (set! aces_count (- aces_count 1)) ) ) |


