如何以J重构呢?(How to refactor this in J?)

2019-10-30 00:58发布

下面是项目欧拉#1解决方案不同的方法:

+/~.(3*i.>.1000%3),5*i.>.1000%5

如何重构呢?

Answer 1:

[:+/@~.@,3 5([*i.@>.@%~)]

使用示例:

f =: [:+/@~.@,3 5([*i.@>.@%~)]
f 1000

要么

+/~.,3 5([*i.@>.@%~)1000

%~                        = 4 : 'y % x'
i.@>.@%~                  = 4 : 'i. >. y % x'
[*i.@>.@%~                = 4 : 'x * i. >. y % x'
3 5([*i.@>.@%~)]          = 3 : '3 5 * i. >. y % 3 5'
[:+/@~.@,3 5([*i.@>.@%~)] = 3 : '+/ ~. , 3 5 * i. >. y % 3 5'


Answer 2:

+/(#~ ( (0= 3| ]) +. (0 = 5 |]) )) 1+i.999

0 = ( 3 | ])使用(两次)动词列车(叉)的与NUV特技(在结束讨论http://www.jsoftware.com/help/learning/09.htm )

写它的不同方式:

+/(#~ ( ((0&=) @ (3&|)) +. ((0&=) @ (5&|)))) 1+i.999


Answer 3:

这是另一种方法,使用简单,通用动词

multiplesbelow =: 4 : 'I. 0 = x | i.y'
+/ ~. ,3 5 multiplesbelow"0 [ 1000


文章来源: How to refactor this in J?