Jordan-Pólya numbers: Difference between revisions
m
→{{header|J}}: faster (probably -- benchmarks hit by factor of 2 influence from os scheduling)
m (→{{header|J}}: restore missing definition) |
m (→{{header|J}}: faster (probably -- benchmarks hit by factor of 2 influence from os scheduling)) |
||
Line 24:
=={{header|J}}==
<syntaxhighlight lang=J>F=
jpfct=: {{ _2}.!x:i.->.!inv 1+y }}▼
jpprm=: P{.~F I. 1+]
Fs=. 2}.!i.1+{:P
isjp=: {{
| |||