Return to std59.out CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test / distr

BSD 4.3

any('aeiou',&lcase) ----> 2
any('aeiou',&ucase) ----> none
2
2
2
2
2
2
2
2
2
2
2
6
6
6
6
6
6
6
6
6
6
6
every write(any('aeiou',&lcase,1 to 5,10 to 20)) ----> none
match("abc","abcabcabcabc") ----> 4
match("abc","xabcabcabcabc") ----> none
5
5
5
5
5
5
5
8
8
8
5
5
5
8
5
8
5
8
every write(match("abc","xabcabcabcabc",1 to 10,1 to 10)) ----> none
upto('56d&',&lcase) ----> 4
upto('56d&',&ucase) ----> none
upto('56d&',&lcase,15) ----> none
many(&lcase,"this is a Test") ----> 5
many(&lcase,"this is a Test",5) ----> none
many(&lcase,"this is a Test",5,9) ----> none
find("aa","xxaaaaaa") ----> 3
3
4
5
6
7
every write(find("aa","xxaaaaaa")) ----> none
4
5
every write(find("aa","xxaaaaaa",4,7)) ----> none
bal('-','(',')',"-35") ----> 1
bal('+','(',')',"((2*x)+3)+(5*y)") ----> 10
10
7
7
10
every write(bal('+','(',')',"((2*x)+3)+(5*y)",1 to 10)) ----> none
bal('+','[','[',"[[2*x[+3[+[5*y[") ----> none
bal('+','([','])',"([2*x)+3]+(5*y]") ----> 10
bal(,,,"()+()") ----> 1
bal(&cset,,,"()+()") ----> 1
Run-time error 104 at line 31 in std59.icn
cset expected
offending value: []

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