Carmichael 3 strong pseudoprimes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
m (→{{header|zkl}}: fix bare tag) |
||
Line 3,418: | Line 3,418: | ||
]]; |
]]; |
||
fcn mod(a,b) { m:=a%b; if(m<0) m+b else m }</lang> |
fcn mod(a,b) { m:=a%b; if(m<0) m+b else m }</lang> |
||
<lang>cs.len().println(" Carmichael numbers found:"); |
<lang zkl>cs.len().println(" Carmichael numbers found:"); |
||
cs.pump(Console.println,fcn([(p1,p2,p3)]){ |
cs.pump(Console.println,fcn([(p1,p2,p3)]){ |
||
"%2d * %4d * %5d = %d".fmt(p1,p2,p3,p1*p2*p3) });</lang> |
"%2d * %4d * %5d = %d".fmt(p1,p2,p3,p1*p2*p3) });</lang> |