compute-tr ( quot from to -- mapping )

Vocabulary

tr.private

Inputs

quot	an object
from	an object
to	an object

Outputs

mapping

an object

Definition

USING: assocs combinators kernel sequences ;

IN: tr.private

: compute-tr ( quot from to -- mapping )
    [ 128 <iota> ] 3dip zip
    '[ [ _ ( x -- y ) call-effect _ at ] keep or ] B{ } map-as ;
    inline