Skip to content

Instantly share code, notes, and snippets.

@ukstudio

ukstudio/fizzbuzz.scm

Created November 20, 2009 13:56
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save ukstudio/239516 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save ukstudio/239516 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fizzbuzz.scm
(define (main args)
(use srfi-1)
(print
(map
(lambda (x) (cond [(= (modulo x 15) 0) "FizzBuzz"]
[(= (modulo x 5) 0) "Buzz"]
[(= (modulo x 3) 0) "Fizz"]
[else x]))
(iota 100 1))
)
0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment