Ticket #8853: AlarmingPattern.hs

File AlarmingPattern.hs, 172 bytes (added by MikolajKonarski, 6 years ago)
Line 
1module Main where
2
3main :: IO ()
4main =
5  let takeFromInv :: Int -> Int -> [Int]
6      takeFromInv 0 _ = []
7      takeFromInv _ 0 = []
8  in takeFromInv 1 1 `seq` return ()