|
|
| version 1.104, 2005/11/22 11:31:58 | version 1.117, 2006/04/09 13:38:48 |
|---|---|
| Line 1 | Line 1 |
| ^for[i](1;100){ | |
| <hr> | $hash[ |
| $original[^for[j](1;$i){$j}] | $.1(1) |
| $original[^file::create[text;original.txt;$original]] | $.2(2) |
| $original.text | ] |
| <br> | ^hash.foreach[k;v]{ |
| $encoded[^original.base64[]] | k=$k,v=$v^break[];! |
| $encoded | } |
| <br> | |
| $decoded[^file::base64[$encoded]] | $table[^table::create{a |
| $decoded.text | 1 |
| ^if($decoded.text ne $original.text){^throw[bug;here]} | 2 |
| 3}] | |
| ^table.menu{ | |
| <$table.a^if($table.a==2){^break[]!}> | |
| }[,] | |
| ------------- | |
| ^while(1<2){ | |
| $i($i+1) | |
| ^if(1<3){ | |
| { | |
| <$i^if($i==3){^break[]}> | |
| } | |
| } | |
| } | |
| ^for[i](1;3){ | |
| $i before | |
| ^if($i==2){^continue[]} | |
| after | |
| }[,] | |
| $response:paf[test] | |
| $response:paf[] | |
| --- | |
| $hashfile[^hashfile::open[hf]] | |
| $hashfile.1(1) | |
| $hashfile.2(2) | |
| ^hashfile.foreach[k;v]{ | |
| k=$k,v=$v^break[];! | |
| } | } |