summary refs log tree commit diff stats
path: root/fizzbuzz.lith
diff options
context:
space:
mode:
Diffstat (limited to 'fizzbuzz.lith')
-rw-r--r--fizzbuzz.lith12
1 files changed, 0 insertions, 12 deletions
diff --git a/fizzbuzz.lith b/fizzbuzz.lith
deleted file mode 100644
index 1dac1f6..0000000
--- a/fizzbuzz.lith
+++ /dev/null
@@ -1,12 +0,0 @@
-;;;; fizzbuzz program written in lith
-
-(define 1to100 (range 1 100))
-
-(define (to-fizz-buzz n)
-    (cond
-        ((divides n 15) "FizzBuzz")
-        ((divides n 3) "Fizz")
-        ((divides n 5) "Buzz")
-        (else n)))
-
-(for-each print (map to-fizz-buzz 1to100))