Jordan-Pólya numbers: Difference between revisions
m
→{{header|J}}: faster
(J draft) |
m (→{{header|J}}: faster) |
||
Line 24:
=={{header|J}}==
<syntaxhighlight lang=J>
jpprm=: P{.~F I. 1+]
isjp=: {{
if. 2>y do. y return.
elseif. 0 < #(q:y)-.jpprm y do. 0 return.
else.
end.
end.
}}"0</syntaxhighlight>▼
▲ if. 2>y do. i.0 return. end.
▲}}</syntaxhighlight>
Task:
| |||