shithub: MicroHs

ref: 32c81bcbea042c1288fc66ba9e7b4dcf9e266a81
dir: /tests/ListCompr.hs/

View raw version 
module ListCompr(main) where
import Prelude
default (Int)

main :: IO ()
main = do
  print [ x | x <- [1..3] ]
  print [ x | x <- [1..3], odd x ]
  print [ x+1 | x <- [1..3] ]
  print [ (x,y) | x <- [1..3], y <- [1,2] ]
  print [ (x,y) | x <- [1..3], y <- [1..x] ]
  print $ [ x | x <- [1..3] ] ++ [ x | x <- [1..4] ]
  print [ [ x + y | y <- [1,2] ] | x <- [1..3] ]
  print [ x+1 | x <- [ a+b | a <- [1,10,100], b <- [2,3] ], even x ]
  let lst = [((==5), "5"::String), (const True, "def")]
  print [ s | (p, s) <- lst, p 5 ]