Return to diffwords.dat CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples

Annotation of 43BSD/contrib/icon/samples/diffwords.dat, revision 1.1.1.1

1.1       root        1: procedure main()
                      2:    local limit, s, i
                      3:    limit := 100
                      4:    s := set([])
                      5:    every insert(s,1 to limit)
                      6:    every member(s,i := 2 to limit) do
                      7:       every delete(s,i + i to limit by i)
                      8:    primes := sort(s)
                      9:    write("There are ",*primes," primes in the first ",limit," integers.")
                     10:    write("The primes are:")
                     11:    every write(right(!primes,*limit + 1))
                     12: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.