filter ( send prime recv -- )

Vocabulary

channels.examples

Inputs

send	an object
prime	an object
recv	an object

Outputs

None

Definition

USING: channels kernel math ;

IN: channels.examples

: filter ( send prime recv -- )
    [ from swap dupd mod zero? not [ swap to ] [ 2drop ] if ]
    3keep filter ;