From cb767eaa8fb4000acd269bba851df2d6cbc10968 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 8 Sep 2021 22:27:22 +0200 Subject: Bug fix + blackjack update. --- data/examples/blackjack/cards.fate | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'data/examples/blackjack/cards.fate') diff --git a/data/examples/blackjack/cards.fate b/data/examples/blackjack/cards.fate index 7245436..f9c734f 100644 --- a/data/examples/blackjack/cards.fate +++ b/data/examples/blackjack/cards.fate @@ -41,21 +41,26 @@ (global (list card) deck_template) -(list:add_all! (eval card_generator Hearts) deck_template) -(list:add_all! (eval card_generator Spades) deck_template) -(list:add_all! (eval card_generator Diamonds) deck_template) -(list:add_all! (eval card_generator Clubs) deck_template) +(list:add_all! + (eval card_generator Hearts) + (eval card_generator Spades) + (eval card_generator Diamonds) + (eval card_generator Clubs) + deck_template +) + + (define_sequence compute_score (((ptr (list card)) deck) ((ptr int) result)) - (local int aces_count) - (local int maybe_better_score) + (local int aces_count 0) + (local int maybe_better_score 0) (set! (at result) 0) (foreach (at deck) card (set! (at result) (+ card.score (at result))) (if (= (var card.number) 1) - (set! aces_count (+ aces_count 1)) + (++! aces_count) ) ) @@ -64,6 +69,6 @@ (if (=< maybe_better_score 21) (set! (at result) (var maybe_better_score)) ) - (set! aces_count (- aces_count 1)) + (--! aces_count) ) ) -- cgit v1.2.3-70-g09d2