shithub: MicroHs

ref: 763763f37fb5d16de3c91da15bb604ec33d762ba
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"), (const True, "def")]
  print [ s | (p, s) <- lst, p 5 ]