original-big-bang-variant ( -- )

Vocabulary

bubble-chamber

Inputs

None

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: bubble-chamber

: original-big-bang-variant ( -- )
    bubble-chamber-window 1789 [ <muon> add-particle ] times
    1300 [ <quark> add-particle ] times 1000
    [ <hadron> add-particle ] times 111
    [ <axion> add-particle ] times dup particles>>
    [ collide randomize-collision-theta ] each drop ;