1 October 2017

Oberon-2 (finally!) adds the ability to have an open array declared outside of a formal parameter.

MODULE Benchmark;

IMPORT Oberon, Texts, Out;

	PROCEDURE pCalc (VAR NumPrimes : LONGINT);
	VAR Count, Index, Found : LONGINT;
		Primes : POINTER TO ARRAY OF LONGINT;
	BEGIN
		NEW(Primes, NumPrimes);

		Found := 0;
		Count := 2;

		WHILE Found < NumPrimes DO

			Primes[Found] := Count;
			Out.Int(Count, 6);
			Out.Ln;
			INC(Count);
			INC(Found);

			Index := 0;
			REPEAT
				IF Count MOD Primes[Index] = 0 THEN
					INC(Count);
					Index := 0
				END;
				INC(Index);
			UNTIL Index = Found
		END;

	END pCalc;

	PROCEDURE nPrimes*;
	VAR Arg : Texts.Scanner;
	BEGIN
		Texts.OpenScanner(Arg, Oberon.Par.text, Oberon.Par.pos);
		Texts.Scan(Arg);
		pCalc(Arg.i)
	END nPrimes;

END Benchmark.

Benchmark.nPrimes 10000 ~