|
|
1.1 root 1:
2: a
3: ab
4: abc
5: abcd
6: abcde
7: abcdef
8: every write("abcdef" ? tab(1 to 10)) ----> none
9: every write("abcde" ? while move(2) ? move(1)) ----> none
10: s := "abcdef" ----> "abcdef"
11: s ?:= move(3) ----> "abc"
12: s := "abcdef" ----> "abcdef"
13: 1
14: 2
15: 3
16: 4
17: 5
18: 6
19: every write(s ?:= upto(&lcase)) ----> none
20: s := "this is the time to work it all out" ----> "this is the time to work it all out"
21: this
22: this is
23: this is the
24: this is the time
25: this is the time to
26: this is the time to work
27: this is the time to work it
28: this is the time to work it all
29: every write(s ? tab(find(" "))) ----> none
30: s := "xxxxxx" ----> "xxxxxx"
31: x
32: every s ? write(=("a" | "x")) ----> none
33: f
34: e
35: d
36: c
37: b
38: a
39: "abcdef" ? (tab(0) & (while write(move(-1)))) ----> none
40: Run-time error 101 at line 20 in expr68.icn
41: integer expected
42: offending value: "a"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.