Skip to content

Instantly share code, notes, and snippets.

@yoshitsugu

yoshitsugu/monad_sample_20150823.hs

Last active August 29, 2015 14:27
Show Gist options
  • Save yoshitsugu/49ad7511cf26bc99e9bf to your computer and use it in GitHub Desktop.
Save yoshitsugu/49ad7511cf26bc99e9bf to your computer and use it in GitHub Desktop.
Download ZIP
((->) Int ) 型もモナドとなる
Raw
monad_sample_20150823.hs
import Control.Applicative
hoge :: Int -> Int
hoge = (*) 2
fuga :: Int -> Int
fuga = (+) 1
piyo :: Int -> Int
piyo = (+) <$> hoge <*> fuga
main = print $ piyo 2 -- => 7
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment