diff options
Diffstat (limited to 'tests/general/diffwrds.dat')
-rw-r--r-- | tests/general/diffwrds.dat | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/general/diffwrds.dat b/tests/general/diffwrds.dat new file mode 100644 index 0000000..4d609c1 --- /dev/null +++ b/tests/general/diffwrds.dat @@ -0,0 +1,12 @@ +procedure main() + local limit, s, i + limit := 100 + s := set([]) + every insert(s,1 to limit) + every member(s,i := 2 to limit) do + every delete(s,i + i to limit by i) + primes := sort(s) + write("There are ",*primes," primes in the first ",limit," integers.") + write("The primes are:") + every write(right(!primes,*limit + 1)) +end |