diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2014-08-08 14:37:06 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2014-08-08 14:37:06 +0800 |
| commit | e285e81c2519dfe9b000d0f297b72c6c9909662d (patch) | |
| tree | 352ee7f112be704111da437df4f62f15a37b3be9 /addStuff.hs | |
| parent | 423693811904a6038a1a7532700726799e05fade (diff) | |
| download | haskbox-old-e285e81c2519dfe9b000d0f297b72c6c9909662d.tar.gz haskbox-old-e285e81c2519dfe9b000d0f297b72c6c9909662d.tar.bz2 haskbox-old-e285e81c2519dfe9b000d0f297b72c6c9909662d.zip | |
Last few chapters in LYHGG
Diffstat (limited to 'addStuff.hs')
| -rw-r--r-- | addStuff.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/addStuff.hs b/addStuff.hs new file mode 100644 index 0000000..d440f7e --- /dev/null +++ b/addStuff.hs @@ -0,0 +1,12 @@ +import Control.Monad.Instances + +addStuff :: Int -> Int +addStuff = do + a <- (*2) + b <- (+10) + return (a+b) + +complexOp = do + a <- sqrt + b <- log . (**2) + return (a+b) |