Add the haskell book

1 files changed, 28 insertions, 0 deletions

diff --git a/Haskell-book/02/src/Main.purs b/Haskell-book/02/src/Main.purs
new file mode 100644
index 0000000..feb0fd2
--- /dev/null
+++ b/Haskell-book/02/src/Main.purs
@@ -0,0 +1,28 @@
+module Main where
+
+import Prelude
+import Control.Monad.Eff (Eff)
+import Control.Monad.Eff.Console (CONSOLE, log)
+import Math (pi)
+
+--
+-- 2.5 Comprehensive check
+--
+mulSquare :: Number -> Number
+mulSquare x = pi * (x * x)
+
+waxOn :: Int
+waxOn = x * 5
+  where x = y * y
+        y = z + 8
+        z = 7
+
+triple :: Int -> Int
+triple x = x * 3
+
+waxOff :: Int -> Int
+waxOff = triple
+
+main :: forall e. Eff (console :: CONSOLE | e) Unit
+main = do
+  log "Hello sailor!"