(defn happy-numers? [num]  (letfn [(squrt [n]            (reduce #(+ %1 (* %2 %2)) 0 (map #(Integer/valueOf (str %)) (str n))))          (fn1 [n results]            (let [r (squrt n)]              (cond                (= 1 r) true                (results r) false                :else (recur r (conj results r)))))]    (fn1 num #{})))