files/practicum/Group.icl


1
2
3
4
5
6
7
8
9
10
11

implementation module Group

import StdEnv

Start = ( group isEven  [1 .. 10]
        , group isOdd   [1 .. 10]
        , group isDigit ['7 Dwergen en 11 princessen zoenden 3 kikkerprinsen.']
        )

group :: (a -> Bool) [a] -> [[a]]
group ...