execute-random ( seq -- quot )
Random combinators

Prev:

call-random ( seq -- quot )

Vocabulary
combinators.random

Inputs

seq	a sequence of words

Outputs
None

Word description
Executes a random word from the given sequence of quotations.

Definition

USING: combinators.random.private quotations sequences ;

IN: combinators.random

MACRO: execute-random ( seq -- quot )
    [ 1quotation ] map call-random>casep casep>quot ;