47 lines
1.2 KiB
Modula-2
47 lines
1.2 KiB
Modula-2
(*********************************************************************)
|
|
(* The Sieve Benchmark *)
|
|
(* *)
|
|
(* Compile with test, overflow switches off and native code on. *)
|
|
(* *)
|
|
(*********************************************************************)
|
|
(*$S-*)
|
|
(*$R-*)
|
|
(*$T-*)
|
|
|
|
MODULE sieve;
|
|
|
|
FROM SYSTEM IMPORT WORD, BYTE, ADDRESS;
|
|
FROM NumberConversion IMPORT StringToCard;
|
|
FROM Strings IMPORT Assign;
|
|
FROM InOut IMPORT WriteLn, WriteInt, WriteCard, WriteString;
|
|
|
|
CONST
|
|
size = 8190;
|
|
|
|
VAR
|
|
flags : ARRAY [ 0 .. size ] OF BOOLEAN;
|
|
i, prime, k, count, iter : CARDINAL;
|
|
ch : CHAR;
|
|
|
|
BEGIN
|
|
FOR iter := 1 TO 10 DO
|
|
count := 0;
|
|
FOR i := 0 TO size DO flags[i] := TRUE END;
|
|
FOR i := 0 TO size DO
|
|
IF flags[i] THEN
|
|
prime := i + i + 3;
|
|
k := i + prime;
|
|
WHILE k <= size DO
|
|
flags[k] := FALSE;
|
|
k := k + prime;
|
|
END;
|
|
count := count + 1;
|
|
END;
|
|
END;
|
|
END;
|
|
WriteString( "count of primes: " );
|
|
WriteCard( count, 0 );
|
|
WriteLn;
|
|
(* WRITELN( count, " primes" ); *)
|
|
END sieve.
|