collide-one-of-each ( bubble-chamber -- bubble-chamber )

Vocabulary

bubble-chamber

Inputs

bubble-chamber

an object

Outputs

bubble-chamber

an object

Definition

USING: accessors kernel random sequences ;

IN: bubble-chamber

: collide-one-of-each ( bubble-chamber -- bubble-chamber )
    dup particles>>
    [ [ muon? ] filter random collide ]
    [ [ quark? ] filter random collide ]
    [ [ hadron? ] filter random collide ] tri ;