Dự án Euler # 9 (Bộ ba Pythagore) trong Clojure

Question

Câu trả lời của tôi cho điều này problem cảm thấy quá nhiều như thế này solutions in C.

Có ai có lời khuyên nào để làm điều này trở nên đáng sợ hơn không?

(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 có một số chương trình để bạn tham khảo.

Answer 2

Cá nhân tôi sử dụng thuật toán này (mà tôi tìm thấy mô tả 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)))))) 

Dường như với tôi ít nhiều phức tạp :-)