Ticket #4256: Main.hs

File Main.hs, 201 bytes (added by cliffordbeshers, 4 years ago)
Line 
1data Fizz = Fizz Int | Buzz Int
2
3newtype Foo = Foo Int deriving Show
4
5f :: Int -> Foo -> Foo
6f x (Foo y) = Foo (x + y)
7
8g :: Fizz
9g = Buzz 2
10
11h :: Fizz
12h = Fizz 23
13
14main = print $ show $ f 11 $ Foo 17