Miller–Rabin primality test: Difference between revisions

m
m (forgot the header)
m (→‎[[Miller-Rabin_test#ALGOL 68]]: rename clude to lude.)
Line 24:
{{trans|python}}
 
{{works with|ALGOL 68|Standard - with precludespreludes manually inserted }}
{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}
<!-- {{does not work with|ELLA ALGOL 68|Any (with appropriate job cards AND formatted transput statements removed) - tested with release 1.8.8d.fc9.i386 - ELLA has no FORMATted transput, also it generates a call to undefined C LONG externals }} -->
Line 31:
 
MODE POWMODSTRUCT = LINT;
PR READ "precludeprelude/pow_mod.a68" PR;
 
PROC miller rabin = (LINT n, LOOPINT k)BOOL: (
Line 69:
937 941 947 953 967 971 977 983 991 997
</pre>
 
=={{header|Bc}}==
{{works with|GNU bc}}