Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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