Proyecto Euler # 9 (trillizos pitagóricos) en Clojure

Question

Mi respuesta a este problem se parece demasiado a estos solutions in C.

¿Alguien tiene algún consejo para hacer esto más liso?

(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

El clojure-euluer-project tiene varios programas para hacer referencia.

Answer 2

que yo personalmente utilizado este algoritmo (que me pareció describe 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)))))) 

me parece mucho menos complicado :-)