|
|
| version 1.97, 2005/08/26 12:36:59 | version 1.103, 2005/11/22 11:21:35 |
|---|---|
| Line 1 | Line 1 |
| ^table::create{namelessz;z} | |
| ^for[i](1;200){ | |
| <hr> | |
| $original[^for[j](1;$i){$j}] | |
| $original | |
| <br> | |
| $encoded[^original.base64[]] | |
| $encoded | |
| <br> | |
| $decoded[^string:base64[$encoded]] | |
| $decoded | |
| ^if($decoded ne $original){^throw[bug;here]} | |
| } |