[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.
