Template:Prelude/is prime.a68: Difference between revisions
Content added Content deleted
m (Template template) |
|||
Line 16: | Line 16: | ||
prime |
prime |
||
FI |
FI |
||
<noinclude>{{template}}</noinclude> |
Latest revision as of 15:39, 11 October 2010
COMMENT This routine is used in more than one place, and is essentially a template that can by used for many different types, eg INT, LONG INT... USAGE MODE ISPRIMEINT = INT, LONG INT, etc PR READ "prelude/is_prime.a68" PR END COMMENT
PROC is prime = ( ISPRIMEINT p )BOOL: IF p <= 1 OR ( NOT ODD p AND p/= 2) THEN FALSE ELSE BOOL prime := TRUE; FOR i FROM 3 BY 2 TO ENTIER sqrt(p) WHILE prime := p MOD i /= 0 DO SKIP OD; prime FI