1 --!!! ds009 -- simple list comprehensions
3 module SimpleListComp where
7 g xs ys zs = [ (x,y,z) | x <- xs, y <- ys, z <- zs, True ]
9 h xs ys = [ [x,y] | x <- xs, y <- ys, False ]
11 i xs = [ x | all@(x,y) <- xs, all == ([],[]) ]
13 j xs = [ (a,b) | (a,b,c,d) <- xs ]