blob: 487f0c9a00386baa418707ef7172706994a7b993 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module T18264 where
import Data.Char (isDigit)
import Data.Maybe (isJust)
import Data.Char (isPrint)
import Data.List (sortOn)
import Data.Char (isLetter)
import Data.Maybe hiding (isNothing)
import qualified Data.List as S (sort)
import qualified Data.Char as C --only isDigit & isLetter used later
import qualified Data.List as T (nub)
test1 x = isDigit x || isLetter x
test2a = isJust
test2b = fromJust
test3 x = C.isDigit x || C.isLetter x
test4 xs = S.sort xs
test5 xs = T.nub xs
test6 f xs = sortOn f xs
|
