Projekt Euler # 9 (pythagoräische Drillinge) in Clojure

Question

Meine Antwort auf diese problem fühlt sich zu sehr wie diese solutions in C.

Hat jemand einen Rat, um das lispy zu machen?

(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

Die clojure-euluer-project hat mehrere Programme für Sie zu verweisen.

Answer 2

ich diesen Algorithmus persönlich in Anspruch genommen (was ich beschrieben here gefunden):

(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)))))) 

mir scheint viel weniger kompliziert :-)