Stupid Prime Generator
Try cutting and pasting this into the restricted
Tcl interpreter, or return to the NArray page.
set n 200
narray create primes $n
primes aset 0 2
primes vset trial 3
primes map {
if @0 > 0 {
prime = 0;
while !prime {
prime = 1;
for (i = 0; prime && i < @0; i += 1) {
if fmod(trial, [i]) == 0 { prime = 0; }
}
if !prime { trial += 2; }
}
[] = trial;
}
}
pnarray primes
Sam Shen, slshen@lbl.gov
Last modified: Thu Oct 13 12:05:36 1994