Project Euler # 9 (пифагорейские триплеты) в Clojure

Question

Мой ответ на этот вопрос problem чувствует себя слишком, как эти solutions in C.

Есть ли у кого-нибудь советы, чтобы сделать это более lispy?

(use 'clojure.test) 
(:import 'java.lang.Math) 

(with-test 
    (defn find-triplet-product 
    ([target] (find-triplet-product 1 1 target)) 
    ([a b target] 
     (let [c (Math/sqrt (+ (* a a) (* b b)))] 
     (let [sum (+ a b c)] 
      (cond 
      (> a target) "ERROR" 
      (= sum target) (reduce * (list a b (int c))) 
      (> sum target) (recur (inc a) 1 target) 
      (< sum target) (recur a (inc b) target)))))) 

    (is (= (find-triplet-product 1000) 31875000))) 

Answer 1

clojure-euluer-project предлагает несколько вариантов обмена.

Answer 2

Я лично использовал этот алгоритм (который я нашел описанный here):

(defn generate-triple [n] 
    (loop [m (inc n)] 
    (let [a (- (* m m) (* n n)) 
      b (* 2 (* m n)) c (+ (* m m) (* n n)) sum (+ a b c)] 
     (if (>= sum 1000) 
     [a b c sum] 
     (recur (inc m)))))) 

Мне кажется гораздо менее сложным :-)