execute-random ( seq -- quot )
Random combinators
Prev:call-random ( seq -- quot )


Vocabulary
combinators.random

Inputs and outputs
seqa sequence of words


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

Definition
USING: combinators.random.private macros quotations sequences ;

IN: combinators.random

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