RosettaCodeData/Task/Function-composition/Qi/function-composition-1.qi

6 lines
101 B
Plaintext

(define compose
F G -> (/. X
(F (G X))))
((compose (+ 1) (+ 2)) 3) \ (Outputs 6) \