Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- foo :: (Ord a) => a -> a -> IO ()
- foo a b | a < b = do print a
- print "left"
- | otherwise = print "right"
- main = do
- foo 24 32
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement