blob: bc8900b1dc0597be4d938edf882cf86b5d002c6d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# OPTIONS_GHC -XMonadComprehensions -XTransformListComp #-}
module Foo where
import Data.List (inits)
import GHC.Exts
foo = [ ()
| x <- [1..10]
, then take 5
, then sortWith by x
, then group by x using groupWith
, then group using inits
, then group by x using groupWith
]
|
