[REBOL] Re: bitset help
From: rotenca:telvia:it at: 27-Sep-2002 19:18
> Hi Gregg, > > > ; There has *got* to be a better way than this! > > bxor: func [set1 [bitset!] set2 [bitset!] /local b1 b2] [ > > (head system/words/clear at to binary! set1 add 1 divide length? > > set1 8) > > xor > > (head system/words/clear at to binary! set2 add 1 divide length? > > set2 8) > > ] > > Can be? > > exclude union set1 set2 intersect set1 set2 >Better? difference set1 set2 --- Ciao Romano