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

[REBOL] Re: Faster/better way to achieve this?

From: carl:cybercraft at: 22-Apr-2009 18:23

On Tuesday, 21-April-2009 at 19:13:58 Kai Peters wrote,
>Hi All ~ > >I need to eliminate lines from a file that contain one or more words from a > "negative" list. >Below is some simplified code showing how I am currently doing this. Is > there a faster/better way? > >TIA >Kai > >str: "Romeo loves Juliet very much" >neg: [ "cheese" "bread" "wine" "very" ] >strbl: parse str none > >if (length? strbl) + (length? neg) > length? union strbl neg [ print "kick > out" ]
if not empty? intersect strbl neg [print "Kick out"] -- Carl Read.