Jordan-Pólya numbers: Difference between revisions

m
→‎{{header|J}}: restore missing definitions
m (→‎{{header|J}}: faster)
m (→‎{{header|J}}: restore missing definitions)
Line 24:
 
=={{header|J}}==
<syntaxhighlight lang=J>jpfctP=: {{ _2}.!xp:i.->.!inv 1+y }}100x
F=: !P
 
jpfct=: {{ _2}.!x:i.->.!inv 1+y }}
jpprm=: P{.~F I. 1+]
 
isjp=: {{
6,951

edits