madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add example fizzbuzz

Browse source
This commit is contained in:
madmaurice 2021-04-06 23:00:00 +02:00
parent 8e6929c0a9
commit f86caf6b5f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
examples/fizzbuzz.lisp Normal file
View file

@ -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))))