Revision as of 16:12, 8 June 2023 (view source) Rdm (talk \| contribs) m (→‎{{header\|J}}: faster (probably -- benchmarks hit by factor of 2 influence from os scheduling)) ← Older edit		Revision as of 16:16, 8 June 2023 (view source) Rdm (talk \| contribs) (→‎{{header\|J}}: bugfix) Newer edit →
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>

Jordan-Pólya numbers (view source)