File:  [parser3project] / parser3 / tests / 014.html
Revision 1.5: download - view: text, annotated - select for diffs - revision graph
Fri Jul 23 22:25:47 2010 UTC (16 years, 1 month ago) by moko
Branches: MAIN
CVS tags: HEAD
to check hash order, hash no is longer sorted before print

@main[]
^setdata[]
^$a: ^print[$a]
^$b: ^print[$b]
<br />

^a.add[$b]
^^a.add[^$b]: ^print[$a]

^setdata[]
^a.sub[$b]
^^a.sub[^$b]: ^print[$a]

^setdata[]
$c[^a.intersection[$b]]
^$c[^^a.intersection[^$b]]: ^print[$c]

^setdata[]
$c[^a.union[$b]]
^$c[^^a.union[^$b]]: ^print[$c]

^setdata[]
^^a.intersects[^$b]? ^if(^a.intersects[$b]){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 />


@setdata[]
$a[$.1[a1] $.2[a2] $.3[a3]]
$b[    	$.2[b2] $.3[b3] $.4[b4]]


@print[h]
^h.foreach[k;v]{$k='$v'}[, ]<br />

E-mail: