Skip to content

Instantly share code, notes, and snippets.

@arosh

arosh/gist:3122978

Created July 16, 2012 14:18
Show Gist options
  • Save arosh/3122978 to your computer and use it in GitHub Desktop.
Save arosh/3122978 to your computer and use it in GitHub Desktop.
Download ZIP
FizzBuzz
Raw
gistfile1.scm
(define (FizzBuzz n)
(if (> n 1) (FizzBuzz (- n 1)))
(cond
((= (modulo n 15) 0) (print "FizzBuzz"))
((= (modulo n 5) 0) (print "Fizz"))
((= (modulo n 3) 0) (print "Buzz"))
(else (print n))))
(define (main args)
(FizzBuzz 30))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment