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
|
module Main where
import Text.ParserCombinators.ReadP
import qualified Text.Read.Lex
testStrings
= [ "0x3y",
"0X3abx",
"0o39y",
"0O334z",
"NaN",
"NaNx",
"Infinity",
"Infinityx",
"Wibble Foo",
"Wibble8_+",
"34yy",
"34.4x",
"034.4x",
"31.45e-6y",
"49.2v",
"049.2v",
"35e-3x",
"035e-3x",
"35e+3y",
"83.3e-22",
"083.3e-22"
]
main = mapM test testStrings
test s = do print s
print (lex s)
print (readP_to_S Text.Read.Lex.lex s)
putStrLn ""
|
