From c546987a07f9def3615ebce2b3e90b04109bcb01 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 6 Jun 2021 22:53:46 -0700 Subject: [PATCH] fizz-buzz exercise --- shell/data.limg | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/shell/data.limg b/shell/data.limg index 780d7db9..5a477f04 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -209,13 +209,21 @@ (palette . [(def (palette p i) (nth (% i (len p)) p))]) (task . [(def (task screen keyboard) - (let (y c) '(0 0) + (let (i y) '(1 0) (while (< y (height screen)) - (hline screen y (palette Greys c)) + (hline screen y (fizzbuzz i)) (+= y 3) - (++ c))))]) + (++ i))))]) (main . [(def (main screen keyboard) (task screen keyboard))]) + (fizzbuzz . [(def (fizzbuzz n) + (if (= 0 (% n 3)) + (if (= 0 (% n 5)) + 14 + 12) + (if (= 0 (% n 5)) + 10 + 7)))]) )) (sandbox . (task screen keyboard)) )