代码之家 › 专栏 › 技术社区 › dbyrne

克罗朱尔的Euler#9计划(毕达哥拉斯三胞胎)

pythagorean clojure

dbyrne · 技术社区 · 14 年前

有没有人有什么建议可以让这个更清晰?

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

2 回复 | 直到 7 年前

Yin Zhu 14 年前

这个 clojure-euluer-project

Bozhidar Batsov 14 年前

我个人使用了这个算法(我发现 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))))))

在我看来没那么复杂:-)

推荐文章

Freid001 · 具有最小和最大限制的架构?

6 年前

R u c k s a c k · 如何创建一个集合列表,其中没有两首连续的歌曲在同一个键中

6 年前

Evgeniy Berezovsky · lein uberjar导致“方法代码太大!”

6 年前

phlie · Hoplon With Castra加载后端时出错

6 年前

David Furnam · Clojure从数组中获取坐标

6 年前

podomunro · 如何在Clojure中按给定日期过滤JSON数据?

6 年前

Jdv · 将贴图M转换为贴图A数组,其中M中的键和值映射到A中元素中的新键

6 年前

Akisame · ClojureScript-外部文件中未定义名称goog

6 年前

Jeroen · 如何将惰性序列转换为映射?

6 年前

bpereira · 使用交换!而不是重置!在atom-clojure中

6 年前