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

[REBOL] Re: Exclude Problems

From: ammoncooke:ya:hoo at: 28-Sep-2001 5:50

Oh, I didn't catch that. Here's the fixed code! excl-only: func [ "This is the Exclude function that doesn't exclude duplicates" block1 "The original block" block2 "The block to be 'excluded'" ][ tmp-block: copy block1 either (length? b) > 1[ repeat val block2 [remove find tmp-block val] ][ remove find tmp-block block2 ] either not none? tmp-block[ return head tmp-block ][ return tmp-block ] ] Enjoy!! Ammon