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