loops - 将列表中的五个连续数字相乘的默认函数：J，j701

Question

我正在研究 Project Euler，我正在处理问题 8，我正在尝试一个简单的蛮力：将数字的每个连续 5 位相乘，用结果列出一个列表，然后找到更高的。

这是我目前正在尝试用 J 编写的代码：

   n =: 731671765313x
   NB. 'n' will be the complete 1000-digits number

   itl =: (".@;"0@":)
   NB. 'itl' transform an integer in a list of his digit

   N =: itl n
   NB. just for short writing

   takeFive =: 5 {. ] }.~ 1 -~ [
   NB. this is a dyad, I get this code thanks to '13 : '5{.(x-1)}.y'
   NB. that take a starting index and it's applied to a list

如何将 takeFive 用于 N 的所有索引？我试过：

  (i.#N) takeFive N
|length error: takeFive
|   (i.#N)    takeFive N 

但它不起作用，我不知道为什么。谢谢你们。

Answer 1

1.(i.#N) takeFive N不起作用的原因是您实际上是在尝试运行5{. ((i.#N)-1) }. N，但您x不能将其用作列表，而是用作原子。您可以通过设置动词的适当左右等级来做到这一点："

 (i.#N) (takeFive"0 _) N
7 3 1 6 7
7 3 1 6 7
3 1 6 7 1
1 6 7 1 7
6 7 1 7 6
7 1 7 6 5
1 7 6 5 3
7 6 5 3 1
6 5 3 1 3
5 3 1 3 0
3 1 3 0 0
1 3 0 0 0

2.另一种方法是将&您的列表 ( ) 绑定 ( N) 到takeFive，然后通过 every 运行绑定动词i.#N。为此，最好使用 takeFive: 的反向版本takeFive~：

((N&(takeFive~))"0) i.#N
7 3 1 6 7
7 3 1 6 7
3 1 6 7 1
1 6 7 1 7
6 7 1 7 6
7 1 7 6 5
1 7 6 5 3
7 6 5 3 1
6 5 3 1 3
5 3 1 3 0
3 1 3 0 0
1 3 0 0 0

或(N&(takeFive~)) each i.#N。

3.不过，我认为中缀 dyad\可能会更好地为您服务：

5 >\N
7 3 1 6 7
3 1 6 7 1
1 6 7 1 7
6 7 1 7 6
7 1 7 6 5
1 7 6 5 3
7 6 5 3 1
6 5 3 1 3