Come refactoring questo in J?
-
21-09-2019 - |
Domanda
Ecco un approccio diverso per il # 1 soluzione di Project Euler:
+/~.(3*i.>.1000%3),5*i.>.1000%5
Come refactoring?
Soluzione
[:+/@~.@,3 5([*i.@>.@%~)]
esempio di utilizzo:
f =: [:+/@~.@,3 5([*i.@>.@%~)]
f 1000
o
+/~.,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'
Altri suggerimenti
+/(#~ ( (0= 3| ]) +. (0 = 5 |]) )) 1+i.999
usi 0 = ( 3 | ])
(due volte) il trucco del verbo treno (forcella) con nuv (discussi alla fine di http://www.jsoftware.com/help/learning/09.htm )
Un modo diverso di scrivere che:
+/(#~ ( ((0&=) @ (3&|)) +. ((0&=) @ (5&|)))) 1+i.999
Ecco un altro approccio, utilizzando un semplice, verb generico
multiplesbelow =: 4 : 'I. 0 = x | i.y'
+/ ~. ,3 5 multiplesbelow"0 [ 1000
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow