Difference between revisions of "Talk:Compose"
Jump to navigation
Jump to search
m |
|||
Line 3: | Line 3: | ||
composeArrow :: [a -> a] -> a -> a <br/> |
composeArrow :: [a -> a] -> a -> a <br/> |
||
composeArrow = foldr ((>>>) . arr) (arr id) |
composeArrow = foldr ((>>>) . arr) (arr id) |
||
+ | </code> |
||
+ | |||
+ | Or maybe this: |
||
+ | <code> |
||
+ | composeArrow :: [a -> a] -> a -> a |
||
+ | composeArrow = foldl ((>>>) . arr) returnA |
||
</code> |
</code> |
Revision as of 15:08, 17 May 2006
Reading this page got me to write an arrow version of compose. Don't know if it should be included or not since it isn't a monadic solution.
composeArrow :: [a -> a] -> a -> a
Or maybe this:
composeArrow = foldr ((>>>) . arr) (arr id)
composeArrow :: [a -> a] -> a -> a
composeArrow = foldl ((>>>) . arr) returnA