is among - problem

[Rob Cozens]

>I'm motivated to take it a step farther and generalize the handler 
>to deal with strings of any number of unique characters (albeit of 
>equal length):
>
>[snip]



>repeat for each line aPattern in it
>      get offset(aPattern,numberList)
>      repeat while it > 0
>         delete char it to (it+3) of numberList
>         get offset(aPattern,numberList)
>      end repeat
>    end repeat
>

Oops!

    put length(targetLine) into returnOffset
    repeat for each line aPattern in it
      get offset(aPattern,numberList)
      repeat while it > 0
         delete char it to (it+returnOffset) of numberList
         get offset(aPattern,numberList)
      end repeat
    end repeat

-- 

Rob Cozens
CCW, Serendipity Software Company
http://www.oenolog.net/who.htm

"And I, which was two fooles, do so grow three;
Who are a little wise, the best fooles bee."

from "The Triple Foole" by John Donne (1572-1631)