blob: 8ac3b21fbd0b24846331d1ca0dba3261a4345b6d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#SRC: JCON
# test grouping of various operators
procedure main()
write(3^3^2)
write(8/4/2)
write(2-2-2)
write(image(f![g]![2]))
write((2<3>2)|"fail")
every write(1 to 2 to 3)
write("x" ? (tab(0)||"y") ? tab(0))
end
procedure f(x)
return x
end
procedure g(x)
return x+2
end
|