Skip to content

Instantly share code, notes, and snippets.

@clojj

clojj/compose.hs

Last active January 26, 2017 15:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save clojj/3d48040f161ca092842e5e4cfdab085e to your computer and use it in GitHub Desktop.
Save clojj/3d48040f161ca092842e5e4cfdab085e to your computer and use it in GitHub Desktop.
Download ZIP
compose function from list of functions
Raw
compose.hs
import Data.List
compose :: [a -> a] -> a -> a
compose fs v = foldl' (flip (.)) id fs $ v
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment