Pollard Rho在APL实施

Question

最近，我尝试使用APL，但很难将其概念化。例如，假设我想创建一个程序g＆lt; -pollard x，其中函数通过Pollard-Rho方法计算数字x是素数还是可计算的。

我知道方法本身，但我不知道从哪里开始实际将它集成到APL中。我应该从创建一个全新的函数f（x）开始在这个函数中使用，还是应该在代码中包含所有内容？我如何保存上次运行中的x以用于下一次运行？请注意，我不是要求整个程序，只是一些建议让我开始。

Answer 1

首先，对于尝试一种你不知道的语言来说，这有点微不足道。尽管如此，我发现这个问题很有趣，并为您提供了几个解决方案。这些是使用Dyalog APL完成的。对于APL新手，他们需要一些学习。

第一个解决方案是Pollard Rho（由维基百科定义）的简单函数，f（x）直接嵌入主函数中：

PollardRho←{
     n←⍵
     ⍺←2 2 1
     x y d←⍺
     f←{n|1+⍵*2}
     x←f x
     y←f f y
     d←n∨|x-y
     d=n:'Failure'
     d≠1:d
     x y d ∇ n
 }

我们可以在APL会议中尝试这一点：

     PollardRho 8051
97

第二种方法从main函数中提取函数f（x），并将其作为参数提供，便于使用f（x）的不同函数。在APL中，将函数作为参数的函数称为运算符：

PollardRho2←{
     n←⍵
     ⍺←2 2 1
     x y d←⍺
     x←n ⍺⍺ x
     y←n ⍺⍺ n ⍺⍺ y
     d←n∨|x-y
     d=n:'Failure'
     d≠1:d
     x y d ⍺⍺ ∇∇ n
 }

我们可以在会话中运行它，首先定义函数f（x）并将其作为左操作数提供：

      f←{⍺|1+⍵*2}
      f PollardRho2 8051
97

请注意，两种解决方案都使用尾递归。

我希望你觉得这很有用。