Jordan-Pólya numbers: Difference between revisions

m (→‎{{header|J}}: faster (probably -- benchmarks hit by factor of 2 influence from os scheduling))
Line 43:
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
}}</syntaxhighlight>
6,951

edits