Add example fizzbuzz

2021-04-06 23:00:00 +02:00 · 2021-04-06 23:00:00 +02:00 · f86caf6b5f
parent 8e6929c0a9
commit f86caf6b5f
1 changed files with 5 additions and 0 deletions
--- a/examples/fizzbuzz.lisp
+++ b/examples/fizzbuzz.lisp
@ -0,0 +1,5 @@
+(do ((i 1 (+ i 1))) ((= i 100))
+    (write-line (cond ((and (zerop (mod i 3)) (zerop (mod i 5))) "FizzBuzz")
+                      ((zerop (mod i 3)) "Fizz")
+                      ((zerop (mod i 5)) "Buzz")
+                      (t i))))