fizz-buzz exercise

1 files 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))
 )