RosettaCodeData/Task/Function-composition/Oforth/function-composition-2.fth

2 lines
44 B
Forth

: compose(f, g) #[ g perform f perform ] ;