project euler 70

pe_70.clj

;; Problem 70  : 2011/12/8
;; "Elapsed time: 19858.886534 msecs"

(defn permutation-num? [n m]
  (= (sort (seq (str n)))
     (sort (seq (str m)))))

(defn pe-70 [limit]
  (reduce #(if (< (first %1) (first %2)) %1 %2)
	  (filter #(permutation-num? (second %) (last %))
		  (for [p1 (reverse (get-prime-list))
			p2 (get-prime-list)
			:while (> p1 p2)
			:while (< (* p1 p2) limit)]
		    (let [n (* p1 p2) phi-n (* (dec p1) (dec p2))]
		      [(/ n phi-n) n phi-n])))))