Skip to content

Instantly share code, notes, and snippets.

@GregorStocks

GregorStocks/scary-people.clj

Forked from j-po/scary-people.clj
Last active August 21, 2016 14:12
Show Gist options
  • Save GregorStocks/d704dbabbe73f0e1331b4a06636cbf52 to your computer and use it in GitHub Desktop.
Save GregorStocks/d704dbabbe73f0e1331b4a06636cbf52 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 [i n
ret "Normal people scare me"
quotes (if (odd? i) \" \')]
(if (zero? i)
ret
(recur (dec i)
(str "Normal people wearing " quotes ret quotes " shirts scare me")
(case quotes
\" \'
\' \")))))
(doseq [n (range 10)]
(println (scary-people n)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment