diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-03-29 05:32:34 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-03-29 05:32:34 +0200 |
| commit | d8567468d2e8ea442086658806c8b098e6f02295 (patch) | |
| tree | ec2d8bea1c0082132df1a3130c5c0f1c27fa5e7f | |
| parent | 1d571ba3cd00c76b282135c5b798228fdf544fcf (diff) | |
| download | dirty-haskell.org-d8567468d2e8ea442086658806c8b098e6f02295.tar dirty-haskell.org-d8567468d2e8ea442086658806c8b098e6f02295.tar.gz dirty-haskell.org-d8567468d2e8ea442086658806c8b098e6f02295.tar.bz2 dirty-haskell.org-d8567468d2e8ea442086658806c8b098e6f02295.tar.xz dirty-haskell.org-d8567468d2e8ea442086658806c8b098e6f02295.zip | |
update - functions existed all along
| -rw-r--r-- | posts/blog-rss.md | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/posts/blog-rss.md b/posts/blog-rss.md index 559a6c6..f7116a9 100644 --- a/posts/blog-rss.md +++ b/posts/blog-rss.md | |||
| @@ -23,3 +23,13 @@ Along the way two helper functions were introduced — if an implementation of t | |||
| 23 | (<-->) :: [(a -> a)] -> a -> a | 23 | (<-->) :: [(a -> a)] -> a -> a |
| 24 | [] <--> x = x | 24 | [] <--> x = x |
| 25 | (f:fs) <--> x = fs <--> (f x) | 25 | (f:fs) <--> x = fs <--> (f x) |
| 26 | |||
| 27 | == Update | ||
| 28 | |||
| 29 | import Control.Applicative ((<*>), pure) | ||
| 30 | |||
| 31 | (<->) fs = (<*>) fs . pure | ||
| 32 | |||
| 33 | (<-->) = flip $ foldl (.) id | ||
| 34 | |||
| 35 | Thanks, viktor. \ No newline at end of file | ||