用clojure解决euler problem 3

最新推荐文章于 2018-07-03 18:44:25 发布

最新推荐文章于 2018-07-03 18:44:25 发布 · 161 阅读

本文介绍了一个算法，用于寻找一个大数的最大质因数。通过递归方式逐步除以最小质因数，直至找到该大数的最大质因数。示例中成功找出600851475143的最大质因数为6857。

部署运行你感兴趣的模型镜像

问题描述：

The prime factors of 13195 are 5, 7, 13 and 29.

What is the largest prime factor of the number 600851475143 ?

(ns euler-problem-3.core)
(defn largest-prime-factor
  [number]
  (loop
      [current-num number,n 2,lpf 2]
    (if (>= lpf current-num)
      lpf
      (if (zero? (rem current-num n))
        (recur (/ current-num n) n n)
        (recur current-num (inc n) lpf)))))
(largest-prime-factor 13195)
(largest-prime-factor 600851475143)

"Elapsed time: 4.15835 msecs"

结果：6857

right！
递归三参数：第一个参数用来保存整除的商，第二个参数用来保存当前的除数，第三个参数用来保存最大的质因素

您可能感兴趣的与本文相关的镜像