blob: 0738da517327f54905cc38634f466a97ccf5af54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{-# LANGUAGE ParallelListComp,
TransformListComp,
RecordWildCards #-}
-- MonadComprehensions,
module ListComprehensions where
import GHC.Exts
import qualified Data.Map as M
import Data.Ord (comparing)
import Data.List (sortBy)
-- Let’s look at a simple, normal list comprehension to start:
parallelListComp :: [Int]
parallelListComp = [ x + y * z
| x <- [0..10]
| y <- [10..20]
| z <- [20..30]
]
oldest :: [Int] -> [String]
oldest tbl = [ "str"
| n <- tbl
, then id
]
|
