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
81
82
83
84
|
"0x3y"
[("0x3","y")]
[(Number (MkNumber 16 [3]),"y")]
"0X3abx"
[("0X3ab","x")]
[(Number (MkNumber 16 [3,10,11]),"x")]
"0o39y"
[("0o3","9y")]
[(Number (MkNumber 8 [3]),"9y")]
"0O334z"
[("0O334","z")]
[(Number (MkNumber 8 [3,3,4]),"z")]
"NaN"
[("NaN","")]
[(Ident "NaN","")]
"NaNx"
[("NaNx","")]
[(Ident "NaNx","")]
"Infinity"
[("Infinity","")]
[(Ident "Infinity","")]
"Infinityx"
[("Infinityx","")]
[(Ident "Infinityx","")]
"Wibble Foo"
[("Wibble"," Foo")]
[(Ident "Wibble"," Foo")]
"Wibble8_+"
[("Wibble8_","+")]
[(Ident "Wibble8_","+")]
"34yy"
[("34","yy")]
[(Number (MkDecimal [3,4] Nothing Nothing),"yy")]
"34.4x"
[("34.4","x")]
[(Number (MkDecimal [3,4] (Just [4]) Nothing),"x")]
"034.4x"
[("034.4","x")]
[(Number (MkDecimal [0,3,4] (Just [4]) Nothing),"x")]
"31.45e-6y"
[("31.45e-6","y")]
[(Number (MkDecimal [3,1] (Just [4,5]) (Just (-6))),"y")]
"49.2v"
[("49.2","v")]
[(Number (MkDecimal [4,9] (Just [2]) Nothing),"v")]
"049.2v"
[("049.2","v")]
[(Number (MkDecimal [0,4,9] (Just [2]) Nothing),"v")]
"35e-3x"
[("35e-3","x")]
[(Number (MkDecimal [3,5] Nothing (Just (-3))),"x")]
"035e-3x"
[("035e-3","x")]
[(Number (MkDecimal [0,3,5] Nothing (Just (-3))),"x")]
"35e+3y"
[("35e+3","y")]
[(Number (MkDecimal [3,5] Nothing (Just 3)),"y")]
"83.3e-22"
[("83.3e-22","")]
[(Number (MkDecimal [8,3] (Just [3]) (Just (-22))),"")]
"083.3e-22"
[("083.3e-22","")]
[(Number (MkDecimal [0,8,3] (Just [3]) (Just (-22))),"")]
|
