compute-tr ( quot from to -- mapping )


Vocabulary
tr.private

Inputs
quotan object
froman object
toan object


Outputs
mappingan 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