9 lines
212 B
Standard ML
9 lines
212 B
Standard ML
let constant x _ = x
|
|
|
|
let compose = fun f g x -> f (g x)
|
|
let (>|) = compose
|
|
|
|
let compose_2 = fun f g x y -> f (g x y)
|
|
let compose_3 = fun f g x y z -> f (g x y z)
|
|
let compose_4 = fun f g a b c d -> f (g a b c d)
|