diff options
Diffstat (limited to 'fizzbuzz.lith')
-rw-r--r-- | fizzbuzz.lith | 12 |
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)) |