1. Forum
  2. USENET
  3. comp.lang.postscript

  • Parallel Sieve Of Eratosthenes

    From Lawrence D'Oliveiro@ldo@nz.invalid to comp.lang.postscript on Mon Jun 24 07:33:05 2024
    From Newsgroup: comp.lang.postscript

    Implemented in GXScript as an ever-lengthening chain of iterators:

    /sieve
    {
    {
    /n exch ldef
    n =
    /subsieve sieve ldef
    {
    yield
    /i exch ldef
    i n mod 0 ne {i subsieve next} if
    }
    loop
    }
    iter
    }
    ddef

    /n 1 ddef
    /subsieve sieve ddef
    {
    /n n 1 add dstore
    n subsieve next ;
    }
    loop
    --- Synchronet 3.21d-Linux NewsLink 1.2