RosettaCodeData/Task/Runtime-evaluation-In-an-en.../Factor/runtime-evaluation-in-an-en...

4 lines
81 B
Factor

USE: eval
: eval-bi@- ( a b program -- n )
tuck [ ( y -- z ) eval ] 2bi@ - ;