put-st ( value -- state )

Vocabulary

monads

Inputs

value

an object

Outputs

state

an object

Definition

USING: arrays kernel ;

IN: monads

: put-st ( value -- state )
    [ [ drop ] ] dip [ f 2array ] curry compose <state> ;