Skip to content

Instantly share code, notes, and snippets.

@craftybones

craftybones/problem-29.clj

Created January 20, 2017 17:39
Show Gist options
  • Save craftybones/b78eb10fba5ae2bfcba2f1ff598a8c83 to your computer and use it in GitHub Desktop.
Save craftybones/b78eb10fba5ae2bfcba2f1ff598a8c83 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
problem-29.clj
(defn pow [x y]
(loop [i y k 1N]
(if (zero? i)
k
(recur (dec i) (* k x)))))
(count (into #{}
(for [a (range 2 101)
b (range 2 101)]
(pow a b))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment