Skip to content

Instantly share code, notes, and snippets.

@j-po

j-po/scary-people.clj

Last active August 21, 2016 14:43
Show Gist options
  • Save j-po/ef893ef0a4457baea9c2518c29a1c869 to your computer and use it in GitHub Desktop.
Save j-po/ef893ef0a4457baea9c2518c29a1c869 to your computer and use it in GitHub Desktop.
Download ZIP
Go `n` levels deep into the "Normal people scare me" shirt
Raw
scary-people.clj
(defn scary-people
"Go `n` levels deep into the \"Normal people scare me\" shirt"
[n]
(loop [n n
ret "Normal people scare me"
quotes (if (odd? n) \" \')]
(if (zero? n)
ret
(recur (dec n)
(str "Normal people wearing " quotes ret quotes " shirts scare me")
(case quotes
\" \'
\' \")))))
(doseq [n (range 10)]
(println (scary-people n)))
@microsoftly
Copy link

microsoftly commented Aug 21, 2016 •
edited
Loading

@GregorStocks, its before 8Am on a sunday. WHY

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment