Jordan-Pólya numbers: Difference between revisions
Content added Content deleted
m (→{{header|J}}: faster) |
m (→{{header|J}}: restore missing definitions) |
||
Line 24: | Line 24: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<syntaxhighlight lang=J> |
<syntaxhighlight lang=J>P=: p:i.100x |
||
F=: !P |
|||
jpfct=: {{ _2}.!x:i.->.!inv 1+y }} |
|||
jpprm=: P{.~F I. 1+] |
jpprm=: P{.~F I. 1+] |
||
isjp=: {{ |
isjp=: {{ |