Carmichael 3 strong pseudoprimes: Difference between revisions

→‎{{header|ALGOL 68}}: Avoid line-wrap
(Added Chipmunk Basic and Gambas)
(→‎{{header|ALGOL 68}}: Avoid line-wrap)
Line 179:
IF is prime[ prime3 ] THEN
IF ( prime2 * prime3 ) MOD ( prime1 - 1 ) = 1 THEN
print( ( whole( prime1, 0 ), " ", whole( prime2, 0 ), " ", whole( prime3, 0 ), newline ) );
print( ( newline ) )
FI
FI
Line 218 ⟶ 219:
61 3361 4021
</pre>
 
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">printOneLine: function [a,b,c,d]->
3,038

edits