From a7003a8b3e00ff36470f1aeb931919f57cac2039 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 1 May 2021 23:47:56 +0200 Subject: Updates Blackjack example, adds extra type support. --- data/examples/blackjack/cards.fate | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'data/examples/blackjack/cards.fate') 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)) ) ) -- cgit v1.2.3-70-g09d2