Jordan-Pólya numbers: Difference between revisions
Content added Content deleted
m (→{{header|J}}: faster (probably -- benchmarks hit by factor of 2 influence from os scheduling)) |
(→{{header|J}}: bugfix) |
||
| Line 43: | Line 43: | ||
showjp=: {{ |
showjp=: {{ |
||
if. 2>y do. i.0 return. end. |
if. 2>y do. i.0 return. end. |
||
F=. f{~1 i |
F=. f{~1 i.~b #inv isjp Y#~b=. (]=<.) Y=. y%f=. jpfct y |
||
F,showjp y%F |
F,showjp y%F |
||
}}</syntaxhighlight> |
}}</syntaxhighlight> |
||