fold ( model oldval quot -- model )

Vocabulary

models.combinators

Inputs

model	a model
oldval	starting value
quot	applied to update and previous values

Outputs

model

a model

Word description

Similar to reduce but works on models, applying a quotation to the previous and new values at each update

Definition

USING: accessors arrays kernel ;

IN: models.combinators

: fold ( model oldval quot -- model )
    rot 1array new-fold-model swap >>quot swap >>value ;