markov-chain ( table -- seq )

Vocabulary

markov-chains

Inputs

table

an object

Outputs

seq

an object

Definition

USING: assocs kernel math.extras sequences ;

IN: markov-chains

: markov-chain ( table -- seq )
    t swap [ at weighted-random dup ] curry [ dup ] produce nip
    ;