push-transitions ( table seq -- table )

Vocabulary

markov-chains

Inputs

table	an object
seq	an object

Outputs

table

an object

Definition

USING: assocs kernel ;

IN: markov-chains

: push-transitions ( table seq -- table )
    transitions over
    [ [ drop H{ } clone ] cache inc-at ] with-assoc assoc-each ;