5 lines
108 B
Haskell
5 lines
108 B
Haskell
-- functional sequence
|
|
(>>>) = flip (.)
|
|
|
|
-- functional choice
|
|
p ?>> (f, g) = \x -> if p x then f x else g x
|