ToDo:
ひかぞーリクエストです。
あまり家事をやらないヲレですがトイレ掃除は担当なのです。
(defn prim[n] (loop [i 2 x n] (cond (> i x) i (zero? (mod x i)) (recur i (/ x i)) :else (recur (inc i) x))))
(defn prim[n]
(loop [i 2 x n]
(cond (> i x) i
(zero? (mod x i)) (recur i (/ x i))
:else (recur (inc i) x))))