Skip to content

Instantly share code, notes, and snippets.

@voodootikigod
Forked from anonymous/gist:20270
Created October 28, 2008 01:47
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 voodootikigod/20273 to your computer and use it in GitHub Desktop.
Save voodootikigod/20273 to your computer and use it in GitHub Desktop.
(define (print x)
(cond ((= (remainder x 15) 0) 'fizzbuzz)
((= (remainder x 3) 0) 'fizz)
((= (remainder x 5) 0) 'buzz)
(else x)))
(define (makelist n)
(if (= n 101)
'()
(cons (print n)
(makelist (+ n 1)))))
(define (fizbuzz) (makelist 1))
(fizbuzz)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment