Skip to content

Instantly share code, notes, and snippets.

@daveray

daveray/p86.clj

Created November 4, 2011 01:34
Download ZIP

Revisions

  1. daveray revised this gist Nov 4, 2011. 1 changed file with 2 additions and 1 deletion.
    3 changes: 2 additions & 1 deletion p86.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -1,3 +1,4 @@
    ; http://www.4clojure.com/problem/86
    (fn [n]
    (letfn [(ds [n]
    (if (pos? n)
    @@ -8,4 +9,4 @@
    (= 1 n) true
    :e (recur (->> (ds n) (map #(* % %)) (reduce +)) (conj ns n))))))

    java.lang.RuntimeException: java.lang.RuntimeException: java.lang.RuntimeException: java.lang.ClassNotFoundException: clojure.core
    ;java.lang.RuntimeException: java.lang.RuntimeException: java.lang.RuntimeException: java.lang.ClassNotFoundException: clojure.core
  2. daveray created this gist Nov 4, 2011.
    11 changes: 11 additions & 0 deletions p86.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,11 @@
    (fn [n]
    (letfn [(ds [n]
    (if (pos? n)
    (conj (ds (int (/ n 10))) (mod n 10))))]
    (loop [n n ns #{}]
    (cond
    (ns n) false
    (= 1 n) true
    :e (recur (->> (ds n) (map #(* % %)) (reduce +)) (conj ns n))))))

    java.lang.RuntimeException: java.lang.RuntimeException: java.lang.RuntimeException: java.lang.ClassNotFoundException: clojure.core