Jordan-Pólya numbers: Difference between revisions
Content added Content deleted
m (→{{header|J}}: restore missing definitions) |
m (→{{header|J}}: restore missing definition) |
||
Line 24: | Line 24: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<syntaxhighlight lang=J>P=: p:i.100x |
<syntaxhighlight lang=J>F=: !P=: p:i.100x |
||
F=: !P |
|||
jpfct=: {{ _2}.!x:i.->.!inv 1+y }} |
jpfct=: {{ _2}.!x:i.->.!inv 1+y }} |
||
jpprm=: P{.~F I. 1+] |
jpprm=: P{.~F I. 1+] |
||
Line 39: | Line 37: | ||
end. |
end. |
||
0 |
0 |
||
}}"0 |
|||
⚫ | |||
showjp=: {{ |
|||
if. 2>y do. i.0 return. end. |
|||
F=. f{~1 i:~b #inv isjp Y#~b=. (]=<.) Y=. y%f=. jpfct y |
|||
F,showjp y%F |
|||
⚫ | |||
Task: |
Task: |