Skip to content

Instantly share code, notes, and snippets.

@valvallow

valvallow/9lisp-003-homework-origin.scm

Created February 10, 2010 11:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save valvallow/300234 to your computer and use it in GitHub Desktop.
Save valvallow/300234 to your computer and use it in GitHub Desktop.
Download ZIP
fizzbuzz
Raw
9lisp-003-homework-origin.scm
(((lambda (f)
(f f))
(lambda (f)
(lambda (n)
(if (<= n 100)
(begipn
(print (cond
((zero? (modulo n 15)) "FizzBuzz")
((zero? (modulo n 5)) "Buzz")
((zero? (modulo n 3)) "Fizz")
(else n)))
((f f)(+ n 1))))))) 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment