SHARE
TWEET

Untitled

a guest May 20th, 2012 8 Never
  1. foo :: (Ord a) => a -> a -> IO ()
  2. foo a b | a < b     = do print a
  3.                          print "left"
  4.         | otherwise = print "right"
  5.  
  6. main = do
  7.   foo 24 32
RAW Paste Data
Top