[REBOL] Re: bitset help
From: rotenca:telvia:it at: 27-Sep-2002 18:48
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 --- Ciao Romano