before leaving jp

Author: EpsilonX

MonadExample/gcd.hs

@@ -40,3 +40,4 @@ output = mapM_ putStrLn . fromDiffList. snd . runWriter . finalCountDown
 
 output2 :: Int -> IO ()
 output2 = mapM_ putStrLn .  snd . runWriter . finalCountDown'
+

MonadExample/stack.hs

@@ -3,13 +3,14 @@ import Control.Monad.State
 type Stack = [Int]
 
 pop :: State Stack Int
-pop = State $ \(x:xs) -> (x,xs)
+pop = state $ \(x:xs) -> (x,xs)
 
 push :: Int -> State Stack ()
-push a = State $ \xs -> ((), a:xs)
+push a = state $ \xs -> ((), a:xs)
 
 stackMainip :: State Stack Int
 stackMainip = do
     push 3
-    pop
+    push 4
+    push 5
     pop