Jordan-Pólya numbers: Difference between revisions
m
→{{header|J}}: restore missing definition
m (→{{header|J}}: restore missing definitions) |
m (→{{header|J}}: restore missing definition) |
||
Line 24:
=={{header|J}}==
<syntaxhighlight lang=J>F=: !P=: p:i.100x
jpfct=: {{ _2}.!x:i.->.!inv 1+y }}
jpprm=: P{.~F I. 1+]
Line 39 ⟶ 37:
end.
0
}}"0
}}"0</syntaxhighlight>▼
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:
| |||