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 ] curry ] dip [ at ] curry
    compose [ keep or ] curry B{ } map-as ; inline