Eratos.mj.txt

program Eratos

	char[] sieve;
	int max;		// maximum prime to be found
	int npp;		// numbers per page

{
	void put(int x)
	{
		if (npp == 10) {
            print(chr(13));
            print(chr(10));
            npp = 0;
		}
		print(x, 5);
		npp = npp + 1;
	}
	
	void found(int x)
		int i;
	{
		put(x);
		i = x;
		while (i <= max) {
		    sieve[i] = 'o';
		    i = i + x;
        }
	}

	void main()
		int i, ready;
	{
		read(max);
		npp = 0;
		sieve = new char[max+1];
		i = 0;
		while (i <= max) {
		    sieve[i] = 'x'; i = i + 1;
        }
		i = 2;
		while (i <= max) {
			found(i);
			ready = 0;
			while(ready == 0) {
				if (i > max) {
				    ready = 1;
				}else if (sieve[i] == 'x'){
				    ready = 1;
				}else{
				    i = i + 1;
                }
			}
		}
	}

}