daily pastebin goal
5%
SHARE
TWEET

Untitled

a guest Sep 13th, 2017 46 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 ()
RAW Paste Data
Top