GEMini Atari/GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso/files/language/isetl/primel.t

Text File | 1987-08-20 | 199b | 15 lines

program primes;
    print "Enter N:";
    read N;
    P := [];
    for x in [2..N] do
        if forall y in P | x mod y /= 0
        then P := P + [x];
        end;
    end;

    print P;
    end;

100;