[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds005.hs
1 -- !!! ds005 -- mappairs from SLPJ Ch 5'
2 --
3 -- this simply tests a "typical" example
4
5 module ShouldCompile where
6
7 -- from SLPJ, p 78
8 mappairs f []     ys     = []
9 mappairs f (x:xs) []     = []
10 mappairs f (x:xs) (y:ys) = f x y : mappairs f xs ys
11
12 -- from p 80
13 mappairs' f []     ys     = []
14 mappairs' f x      []     = []
15 mappairs' f (x:xs) (y:ys) = f x y : mappairs' f xs ys