Advertisement
Guest User

Untitled

a guest
Sep 13th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module Main where
  2.  
  3. import System.Environment
  4.  
  5. main :: IO ()
  6. main = getArgs >>= foo . read . head
  7.  
  8. foo :: Int -> IO ()
  9. foo n = do if (n == 0) then ma else mb
  10.     where
  11.         ma = print ["true ", show n]
  12.         mb = return ()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement