recover-chain ( seq -- quot )


Vocabulary
inverse

Inputs
seqan object


Outputs
quotan object


Definition
USING: arrays kernel quotations sequences ;

IN: inverse

: recover-chain ( seq -- quot )
[ no-match ] [ swap \ recover-fail 3array >quotation ]
reduce ;