|
|
| version 1.83, 2005/06/06 08:45:12 | version 1.103, 2005/11/22 11:21:35 |
|---|---|
| Line 1 | Line 1 |
| ^connect[$SQL.connect-string]{ | |
| ^string:sql{select 2*:a from dual}[$.bind[$.a(5)]] | |
| } | |
| ^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]} | |
| } |