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