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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
-- !!! Tests the various character classifications for a selection of Unicode
-- characters.
module Main where
import Data.Char
main = do
putStrLn (" " ++ concat (map (++" ") strs))
mapM putStrLn (map do_char chars)
where
do_char char = s ++ (take (12-length s) (repeat ' ')) ++ concat (map f bs)
where
s = show char
bs = map ($ char) functions
f True = "X "
f False = " "
strs =
[ "upper",
"uppr2",
"lower",
"lowr2",
"alpha",
"alnum",
"digit",
"print",
"space",
"cntrl" ]
functions =
[ isUpper,
isUpperCase,
isLower,
isLowerCase,
isAlpha,
isAlphaNum,
isDigit,
isPrint,
isSpace,
isControl ]
chars = [backspace,tab,space,zero,lower_a,upper_a,delete,
right_pointing_double_angle_quotation_mark,
latin_capital_letter_l_with_small_letter_j,
latin_small_letter_i_with_caron,
combining_acute_accent,
greek_capital_letter_alpha,
bengali_digit_zero,
en_space,
roman_numeral_one,
small_roman_numeral_one,
circled_latin_capital_letter_a,
circled_latin_small_letter_a,
gothic_letter_ahsa,
monospaced_digit_zero,
squared_latin_capital_letter_a
]
backspace = '\x08'
tab = '\t'
space = ' '
zero = '0'
lower_a = 'a'
upper_a = 'A'
delete = '\x7f'
right_pointing_double_angle_quotation_mark = '\xBB'
latin_capital_letter_l_with_small_letter_j = '\x01C8'
latin_small_letter_i_with_caron = '\x1D0'
combining_acute_accent = '\x301'
greek_capital_letter_alpha = '\x0391'
bengali_digit_zero = '\x09E6'
en_space = '\x2002'
roman_numeral_one = '\x2160'
small_roman_numeral_one = '\x2170'
circled_latin_capital_letter_a = '\x24B6'
circled_latin_small_letter_a = '\x24D6'
gothic_letter_ahsa = '\x10330'
monospaced_digit_zero = '\x1D7F6'
squared_latin_capital_letter_a = '\x1F130'
|
