|
|
| version 1.2, 2003/07/24 11:25:57 | version 1.4, 2009/07/07 23:45:30 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^setdata[] | ^setdata[] |
| ^$a: ^print[$a] | |
| ^$b: ^print[$b] | |
| <br /> | |
| ^a.add[$b] | ^a.add[$b] |
| add:$a.3<br> | ^^a.add[^$b]: ^print[$a] |
| ^setdata[] | ^setdata[] |
| ^a.sub[$b] | ^a.sub[$b] |
| sub2:$a.2<br> | ^^a.sub[^$b]: ^print[$a] |
| sub1:$a.1<br> | |
| ^setdata[] | ^setdata[] |
| $c[^a.union[$b]] | $c[^a.intersection[$b]] |
| union3:$c.3<br> | ^$c[^^a.intersection[^$b]]: ^print[$c] |
| union2:$c.2<br> | |
| ^setdata[] | ^setdata[] |
| $c[^a.intersection[$b]] | $c[^a.union[$b]] |
| intersection3:$c.3<br> | ^$c[^^a.union[^$b]]: ^print[$c] |
| intersection2:$c.2<br> | |
| ^setdata[] | ^setdata[] |
| intersects:^if(^a.intersects[$b]){y;n}<br> | ^^a.intersects[^$b]? ^if(^a.intersects[$b]){y;n}<br /> |
| intersects2:^if(^a.intersects[ ]){y;n}<br> | ^^a.intersects[ ]? ^if(^a.intersects[ ]){y;n}<br /> |
| ^^a.intersects[^$.5[x5]]? ^if(^a.intersects[$.5[x5]]){y;n}<br /> | |
| ^^c.contains[1] ? ^if(^c.contains[1]){y;n}<br /> | |
| ^c.delete[2] | |
| ^^c.delete[2], ^^c.contains[2] ? ^if(^c.contains[2]){y;n}<br /> | |
| ^^c.delete[^$empty]^c.delete[$empty]<br /> | |
| ^^c.delete[]: ^try{^c.delete[]}{$exception.handled(1)error}<br /> | |
| ^print[$c] | |
| <hr /> | |
| <hr> | |
| @setdata[] | @setdata[] |
| $a[$.1[a1] $.2[a2]] | $a[$.1[a1] $.2[a2] $.3[a3]] |
| $b[ $.2[b2] $.3[b3]] | $b[ $.2[b2] $.3[b3] $.4[b4]] |
| @print[h][t] | |
| $t[^h._keys[]] | |
| ^t.sort($t.key) | |
| ^t.menu{$t.key='$h.[$t.key]'}[, ]<br /> |