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     ! 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.