|
|
| version 1.2, 2003/07/24 11:25:57 | version 1.7, 2015/02/03 09:31:54 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| $WHITESPACE[ ] | |
| ^setdata[] | ^setdata[] |
| ^a.add[$b] | ^$a: ^print[$a] |
| add:$a.3<br> | ^$b: ^print[$b] |
| ^^a.add[^$b]^a.add[$b]<br /> | |
| ^$a: ^print[$a] | |
| <hr /> | |
| ^setdata[] | ^setdata[] |
| ^a.sub[$b] | ^$a: ^print[$a] |
| sub2:$a.2<br> | ^$b: ^print[$b] |
| sub1:$a.1<br> | ^^a.sub[^$b]^a.sub[$b]<br /> |
| ^$a: ^print[$a] | |
| <hr /> | |
| ^setdata[] | ^setdata[] |
| $c[^a.union[$b]] | ^$a: ^print[$a] |
| union3:$c.3<br> | ^$b: ^print[$b] |
| union2:$c.2<br> | ^$d[^^a.intersection[^$b]], ^$d: $d[^a.intersection[$b]]^print[$d] |
| <hr /> | |
| ^setdata[] | |
| ^$a: ^print[$a] | |
| ^$b: ^print[$b] | |
| ^$d[^^a.union[^$b]], ^$d: $d[^a.union[$b]]^print[$d] | |
| <hr /> | |
| ^setdata[] | ^setdata[] |
| $c[^a.intersection[$b]] | ^$a: ^print[$a] |
| intersection3:$c.3<br> | ^$b: ^print[$b] |
| intersection2:$c.2<br> | ^^a.intersects[^$b]? ^if(^a.intersects[$b]){y;n}<br /> |
| ^^a.intersects[$WHITESPACE]? ^if(^a.intersects[$WHITESPACE]){y;n}<br /> | |
| ^^a.intersects[^$.5[x5]]? ^if(^a.intersects[$.5[x5]]){y;n}<br /> | |
| <hr /> | |
| ^setdata[] | ^setdata[] |
| intersects:^if(^a.intersects[$b]){y;n}<br> | ^$a: ^print[$a] |
| intersects2:^if(^a.intersects[ ]){y;n}<br> | ^^a.contains[1] ? ^if(^a.contains[1]){y;n}<br /> |
| ^^a.contains[2] ? ^if(^a.contains[2]){y;n}<br /> | |
| ^^a.delete[2]^a.delete[2]<br /> | |
| ^^a.contains[2] ? ^if(^a.contains[2]){y;n}<br /> | |
| ^$a: ^print[$a] | |
| <hr /> | |
| ^setdata[] | |
| ^$c: ^print[$c] | |
| ^^c.delete[^$VOID]^c.delete[$VOID]<br /> | |
| ^$c: ^print[$c] | |
| <hr /> | |
| ^setdata[] | |
| ^$c: ^print[$c] | |
| ^^c.delete[]: ^try{^c.delete[]}{$exception.handled(1)exception}<br /> | |
| ^$c: ^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]] |
| $c[^a.union[$b]] | |
| @print[h] | |
| ^if($h){^h.foreach[k;v]{$k='$v'}[, ]}{empty}<br /> |