Rosetta Code

Happy numbers: Difference between revisions

Page Discussion

Happy numbers (view source)

Revision as of 11:09, 27 February 2010

33 bytes added ,  14 years ago
m
→‎{{header|Clojure}}: formatting
(added Clojure)
m (→‎{{header|Clojure}}: formatting)
Line 308:
(loop [n n, seen #{}]
(cond (= n 1) true
(seen n) false
:else
:else (recur (reduce + (map (comp square digit-to-num) (str n)))
(conj seen n)))))
 
(def happy-numbers (filter happy? (iterate inc 1)))
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/108704"