5

这是我使用 Scheme 教授的入门编程课程中的个人挑战，但我对 Python 示例同样满意。

我已经在方案中实现了模幂的二进制方法，如下所示：

(define (pow base expo modu)
  (if (zero? expo)
      1
      (if (even? expo)
          (mod (expt (pow base (/ expo 2) modu) 2) modu)
          (mod (* base (pow base (sub1 expo) modu)) modu))))

这是必要的，因为 Chez Scheme 没有任何类似于 python 的 pow (base expo modu) 的实现。

现在我正在尝试实现解决模乘的蒙哥马利方法。例如，我有：

Trying to solve:
    (a * b) % N
N = 79
a = 61
b = 5
R = 100
a' = (61 * 100) % 79 = 17
b' = (5 * 100) % 79 = 26
RR' - NN' = 1

我试图了解如何解决 RR' - NN' = 1。我意识到 R' 的答案应该是 64 而 N' 应该是 81，但不明白如何使用欧几里得算法来得到这个答案.

4

1 回答 1

1

扩展欧几里得算法是：

(define (euclid x y)
  (let loop ((a 1) (b 0) (g x) (u 0) (v 1) (w y))
    (if (zero? w) (values a b g)
      (let ((q (quotient g w)))
        (loop u v w (- a (* q u)) (- b (* q v)) (- g (* q w)))))))

因此，在你的例子中，

> (euclid 79 100)
19
-15
1

您可以在我的博客上阅读更多内容。

于 2012-11-13T01:24:22.500 回答