Return to expr06.out CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests / stand

researchv10 Dan Cross

t := table() ----> table(0)
every t[1 | 2.0 | &output | &cset | [] | "hello" | main | 2 | table()] := ?100 ----> none
a := sort(t,3) ----> list(18)
1 22
2 74
2.0 42
"hello" 31
&cset 52
&output 32
procedure main 8
list(0) 43
table(0) 6
every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1]) ----> none
a := sort(t,4) ----> list(18)
table(0) 6
procedure main 8
1 22
"hello" 31
&output 32
2.0 42
list(0) 43
&cset 52
2 74
every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1]) ----> none
table(0) 6
procedure main 8
1 22
"hello" 31
&output 32
2.0 42
list(0) 43
&cset 52
2 74
every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1]) ----> none

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.