diff options
Diffstat (limited to 'tests/general/fncs1.std')
| -rw-r--r-- | tests/general/fncs1.std | 195 |
1 files changed, 195 insertions, 0 deletions
diff --git a/tests/general/fncs1.std b/tests/general/fncs1.std new file mode 100644 index 0000000..005653c --- /dev/null +++ b/tests/general/fncs1.std @@ -0,0 +1,195 @@ + ----> &null +f := open("foo.baz","w") ----> file(foo.baz) +write(f,"hello world") ----> "hello world" +close(f) ----> file(foo.baz) +F := open("gc1.icn") ----> file(gc1.icn) +)(niam erudecorp +)"... gnillif"(etirw +{ od 001 ot 1 yreve +od 001 ot 1 yreve +)0001(tsil +} +)snoitcelloc&(etirw# +)"... gnitcelloc"(etirw +)(tcelloc +)"... gnillif"(etirw +{ od )0001 ot 1,"x"(lper =: s yreve +))esacl&(gnirts(tesc +)(elbat =: t +)]s[(tes +]5 : 2[s +} +)"enod"(etirw +dne +every write(reverse(!F)) ----> none +close(F) ----> file(gc1.icn) +F := open("gc1.icn") ----> file(gc1.icn) +procedure main() + write("filling ...") + every 1 to 100 do { + every 1 to 100 do + list(1000) + } + #write(&collections) + write("collecting ...") + collect() + write("filling ...") + every s := repl("x",1 to 1000) do { + cset(string(&lcase)) + t := table() + set([s]) + s[2 : 5] + } + write("done") +end +every write(map(!F)) ----> none +close(F) ----> file(gc1.icn) +F := open("gc1.icn") ----> file(gc1.icn) +pr-c-d-r- m--n() + wr-t-("f-ll-ng ...") + -v-ry 1 t- 100 d- { + -v-ry 1 t- 100 d- + l-st(1000) + } + #wr-t-(&c-ll-ct--ns) + wr-t-("c-ll-ct-ng ...") + c-ll-ct() + wr-t-("f-ll-ng ...") + -v-ry s := r-pl("x",1 t- 1000) d- { + cs-t(str-ng(&lc-s-)) + t := t-bl-() + s-t([s]) + s[2 : 5] + } + wr-t-("d-n-") +-nd +every write(map(!F,&cset || "aeiou",&cset || "-----")) ----> none +close(F) ----> file(gc1.icn) +F := open("gc1.icn") ----> file(gc1.icn) +procedureumain() +uuuwrite("fillingu...") +uuueveryu1utou100udou{ +uuuuuueveryu1utou100udo +uuuuuuuuulist(1000) +uuuuuu} +uuu#write(&collections) +uuuwrite("collectingu...") +uuucollect() +uuuwrite("fillingu...") +uuueveryusu:=urepl("x",1utou1000)udou{ +uuuuuucset(string(&lcase)) +uuuuuutu:=utable() +uuuuuuset([s]) +uuuuuus[2u:u5] +uuuuuu} +uuuwrite("done") +end +every write(map(!F,&cset || " ",&cset || "aeiou")) ----> none +close(F) ----> file(gc1.icn) +f := open("gc1.icn") ----> file(gc1.icn) +procedure main() + write("filling ...") + every 1 to 100 do { + every 1 to 100 do + list(1000) + } + #write(&collections) + write("collecting ...") + collect() + write("filling ...") + every s := repl("x",1 to 1000) do { + cset(string(&lcase)) + t := table() + set([s]) + s[2 : 5] + } + write("done") +end +while writes(reads(f)) ----> none +close(f) ----> file(gc1.icn) +f := open("gc1.icn") ----> file(gc1.icn) +procedure main() + write("filling ...") + every 1 to 100 do { + every 1 to 100 do + list(1000) + } + #write(&collections) + write("collecting ...") + collect() + write("filling ...") + every s := repl("x",1 to 1000) do { + cset(string(&lcase)) + t := table() + set([s]) + s[2 : 5] + } + write("done") +end +while writes(reads(f,10)) ----> none +f := open("gc1.icn") ----> file(gc1.icn) +procedure main() + write("filling ...") + every 1 to 100 do { + every 1 to 100 do + list(1000) + } + #write(&collections) + write("collecting ...") + collect() + write("filling ...") + every s := repl("x",1 to 1000) do { + cset(string(&lcase)) + t := table() + set([s]) + s[2 : 5] + } + write("done") +end +while write(read(f)) ----> none +close(f) ----> file(gc1.icn) +1 +2 +3 +4 +5 +6 +7 +8 +9 +10 +11 +12 +13 +14 +15 +16 +17 +18 +19 +20 +0.25 1.318 0.252 0.244 0.083 0.968 0.247 0.255 0.5 1.284 -1.38 -1.26 +0.5 1.047 0.523 0.463 0.165 0.877 0.479 0.546 0.707 1.648 -0.69 -0.63 +0.75 0.722 0.848 0.643 0.244 0.731 0.681 0.931 0.866 2.117 -0.28 -0.26 +1.0 0.0 1.570 0.785 0.321 0.540 0.841 1.557 1.0 2.718 0.0 0.0 +1.25 0.896 0.394 0.315 0.948 3.009 1.118 3.490 0.223 0.203 +1.5 0.982 0.463 0.070 0.997 14.10 1.224 4.481 0.405 0.369 +1.75 1.051 0.528 -0.17 0.983 -5.52 1.322 5.754 0.559 0.509 +2.0 1.107 0.588 -0.41 0.909 -2.18 1.414 7.389 0.693 0.630 +2.25 1.152 0.643 -0.62 0.778 -1.23 1.5 9.487 0.810 0.738 +2.5 1.190 0.694 -0.80 0.598 -0.74 1.581 12.18 0.916 0.834 +2.75 1.222 0.741 -0.92 0.381 -0.41 1.658 15.64 1.011 0.920 +3.0 1.249 0.785 -0.98 0.141 -0.14 1.732 20.08 1.098 1.0 +3.25 1.272 0.825 -0.99 -0.10 0.108 1.802 25.79 1.178 1.072 +3.5 1.292 0.862 -0.93 -0.35 0.374 1.870 33.11 1.252 1.140 +3.75 1.310 0.896 -0.82 -0.57 0.696 1.936 42.52 1.321 1.203 +4.0 1.325 0.927 -0.65 -0.75 1.157 2.0 54.59 1.386 1.261 +4.25 1.339 0.956 -0.44 -0.89 2.006 2.061 70.10 1.446 1.317 +4.5 1.352 0.982 -0.21 -0.97 4.637 2.121 90.01 1.504 1.369 +4.75 1.363 1.007 0.037 -0.99 -26.5 2.179 115.5 1.558 1.418 +5.0 1.373 1.030 0.283 -0.95 -3.38 2.236 148.4 1.609 1.464 +5.25 1.382 1.051 0.512 -0.85 -1.67 2.291 190.5 1.658 1.509 +5.5 1.390 1.071 0.708 -0.70 -0.99 2.345 244.6 1.704 1.551 +5.75 1.398 1.089 0.861 -0.50 -0.59 2.397 314.1 1.749 1.592 +6.0 1.405 1.107 0.960 -0.27 -0.29 2.449 403.4 1.791 1.630 +6.25 1.412 1.123 0.999 -0.03 -0.03 2.5 518.0 1.832 1.668 |