1. Forum
  2. Usenet
  3. COMP.LANG.POSTSCRIPT

  • Parallel Sieve Of Eratosthenes

    From Lawrence D'Oliveiro@21:1/5 to All on Mon Jun 24 07:33:05 2024
    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

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)