sieve-test ( -- seq )

Vocabulary

channels.examples

Inputs

None

Outputs

seq

an object

Definition

USING: channels kernel sequences threads ;

IN: channels.examples

: sieve-test ( -- seq )
    <channel> dup [ sieve ] curry "Sieve" spawn drop
    V{ } clone swap [ from swap push ] 2keep
    [ from swap push ] 2keep [ from swap push ] 2keep
    [ from swap push ] 2keep [ from swap push ] 2keep
    [ from swap push ] 2keep [ from swap push ] 2keep
    [ from swap push ] 2keep drop ;