blob: 1580a9cac49220476721e7671bbf1b41929a6c33 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE TemplateHaskell, ParallelListComp #-}
module Main where
list = [ (x,y) | x <- [1..10], x `mod` 2 == 0 | y <- [2,6..50] ]
list' = $( [| [ (x,y) | x <- [1..10], x `mod` 2 == 0 | y <- [2,6..50] ] |] )
main = do putStrLn (show list)
putStrLn (show list')
putStrLn $ show (list == list')
|
