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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
image(2) ----> "2"
image('cab') ----> "'abc'"
image(&lcase) ----> "&lcase"
image('abcdefghijklmnopqrstuvwxyz') ----> "&lcase"
image(&input) ----> "&input"
image() ----> "&null"
image(&null) ----> "&null"
image([1,2,3]) ----> "list_1(3)"
image([]) ----> "list_2(0)"
image([,]) ----> "list_3(2)"
image(table()) ----> "table_1(0)"
image(table(3)) ----> "table_2(0)"
image(list(0)) ----> "list_4(0)"
image(repl) ----> "function repl"
image(main) ----> "procedure main"
image(repl(&lcase,10)) ----> "\"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\""
image(array) ----> "record constructor array"
image(a) ----> "&null"
image(array) ----> "record constructor array"
image(image) ----> "function image"
integer(2) ----> 2
integer("2") ----> 2
integer(" 2") ----> 2
integer("2 ") ----> 2
integer("+2") ----> 2
integer("-2") ----> -2
integer("- 2") ----> none
integer(" - 2 ") ----> none
integer("") ----> none
integer("--2") ----> none
integer(" ") ----> none
integer("-") ----> none
integer("+") ----> none
integer("7r4") ----> 4
integer("4r7") ----> none
integer("4r 7") ----> none
integer("7r 4") ----> none
integer("16rff") ----> 255
integer("36rcat") ----> 15941
integer("36Rcat") ----> 15941
integer("36rCAT") ----> 15941
integer("1r1") ----> none
integer("2r0") ----> 0
integer(integer) ----> none
integer := abs ----> function abs
numeric(2) ----> 2
numeric("2") ----> 2
numeric(" 2") ----> 2
numeric("2 ") ----> 2
numeric("+2") ----> 2
numeric("-2") ----> -2
numeric("- 2") ----> none
numeric(" - 2 ") ----> none
numeric("") ----> none
numeric("--2") ----> none
numeric(" ") ----> none
numeric("-") ----> none
numeric("+") ----> none
numeric("7r4") ----> 4
numeric("4r7") ----> none
numeric("4r 7") ----> none
numeric("7r 4") ----> none
numeric("16rff") ----> 255
numeric("36rcat") ----> 15941
numeric("36Rcat") ----> 15941
numeric("36rCAT") ----> 15941
numeric("1r1") ----> none
numeric("2r0") ----> 0
numeric(2) ----> 2
numeric(2) ----> 2
numeric(+2) ----> 2
numeric(-2) ----> -2
numeric() ----> none
numeric(7r4) ----> 4
numeric(16rff) ----> 255
numeric(36rcat) ----> 15941
numeric(36Rcat) ----> 15941
numeric(36rCAT) ----> 15941
numeric(2r0) ----> 0
numeric(+-2) ----> -2
numeric(++2) ----> 2
numeric(--2) ----> 2
36 ^ -9 ----> 0
-36 ^ -9 ----> 0
f := open("foo.baz","w") ----> file(foo.baz)
write(f,"hello world") ----> "hello world"
close(f) ----> file(foo.baz)
cset sizes and images:
0 ''
4 '()<>'
8 '\b\t\n\v\f\r\e\d'
10 &digits
10 &digits
10 &digits
10 '!#$%&()*@^'
15 ' aceghilmnoprtu'
26 &lcase
26 &lcase
26 &lcase
26 'BDFHJLNPRTVXZacegikmoqsuwy'
26 &ucase
26 &ucase
26 &ucase
26 'AEIOUbcdfghjklmnpqrstvwxyz'
31 ' \'BDFGJLOQTacdeghikmnoprsuvwxyz'
52 &letters
52 &letters
52 &letters
52 '.0125ABCDEFGHJKLMNPQRTUVWXYabcdefghijkmnpqrstuvwxyz|'
128 &ascii
128 &ascii
256 &cset
256 &cset
&ascii
&cset
2.718281828
failed
&input
&lcase
&null
&output
1.618033989
3.141592654
1
0
""
&ucase
|
