Skip to content

Instantly share code, notes, and snippets.

@paultag

paultag/fizzbuzz.hy

Last active February 29, 2016 16:11
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 paultag/74e85a8edd581bae7e8b to your computer and use it in GitHub Desktop.
Save paultag/74e85a8edd581bae7e8b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fizzbuzz.hy
(defn i [x] x)
(defn f [x] 'fizz)
(defn b [x] 'buzz)
(defn fb [x] (+ (f x) (b x)))
(defn apply/tuple [(, a func)] (func a))
(defn enumerate/cycle [iter] (enumerate (cycle iter) :start 1))
(print (list (take 150 (map apply/tuple (enumerate/cycle [i i f i b f i i f b i f i i fb])))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment