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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
# This program contains samples of all the basic syntactic
# forms in Icon.
record three(x,y,z)
record zero()
record one(z)
global line, count
procedure main()
end
procedure expr1(a, b)
local x,y,z
static e1
initial e1 := 0
()
{}
();()
[]
[,]
x.y
x[i]
x[i:j]
x[i+:j]
x[i-:j]
(,,,)
x(,,,)
x!y
not x
|x
!x
*x
+x
-x
end
procedure expr2(a, b[])
.x
/x
=x
?x
\x
~x
@x
^x
x \ i
x @ y
i ^ j
i * j
i / j
i % j
c1 ** c2
i + j
i - j
c1 ++ c2
c1 -- c2
s1 || s2
a1 ||| a2
i < j
i <= j
i = j
i >= j
i > j
i ~= j
s1 << s2
s1 == s2
s1 >>= s2
s1 >> s2
s1 ~== s2
x === y
x ~=== y
x | y
i to j
i to j by k
x := y
x <- y
x :=: y
x <-> y
i +:= j
i -:= j
i *:= j
end
procedure expr3()
i /:= j
i %:= j
i ^:= j
i <:= j
i <=:= j
i =:= j
i >=:= j
i ~=:= j
c1 ++:= c2
c1 --:= c2
c1 **:= c2
s1 ||:= s2
s1 <<:= s2
s1 <<=:= s2
s1 ==:= s2
s1 >>=:= s2
s1 >>:= s2
s1 ~==:= s2
s1 ?:= s2
a1 |||:= a2
x ===:= y
x ~===:= y
x &:= y
x @:= y
s ? x
x & y
create x
return
return x
suspend x
suspend x do y
fail
end
procedure expr4()
while e1 do break
while e1 do break e2
while e1 do next
case e of {
x: fail
(i > j) | 1 : return
}
case size(s) of {
1: 1
default: fail
}
if e1 then e2
if e1 then e2 else e3
repeat e
while e1
while e1 do e2
until e1
until e1 do e2
every e1
every e1 do e2
x
X_
&cset
&null
"abc"
'abc'
"\n"
"^a"
"\001"
"\x01"
1
999999
36ra1
3.5
2.5e4
4e-10
end
|