Skip to content

Instantly share code, notes, and snippets.

@GregorStocks

GregorStocks/extranapkins.clj

Last active May 3, 2016 06:35
Show Gist options
  • Save GregorStocks/e2adeafb44757c857edc7d01c724aedc to your computer and use it in GitHub Desktop.
Save GregorStocks/e2adeafb44757c857edc7d01c724aedc to your computer and use it in GitHub Desktop.
Download ZIP
extranapkins.clj
Raw
extranapkins.clj
(defn extranapkin [s]
(let [n (number->words (count (string/split s #" ")))]
(str "I've got " n " words for you: " s)))
(defn extranapkins [x]
(loop [so-far "Fuck off"
i 1]
(if (> i x)
so-far
(recur (extranapkin so-far) (inc i)))))
(defn -main [& args]
(println (extranapkins 109)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment