Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!magnus.acs.ohio-state.edu!tut.cis.ohio-state.edu!ucbvax!TURING.CSE.NAU.EDU!sbw
From: sbw@TURING.CSE.NAU.EDU (Steve Wampler)
Newsgroups: comp.lang.icon
Subject: Re: RE: terible code
Message-ID: <9103191344.AA11777@turing.cse.nau.edu>
Date: 19 Mar 91 13:44:08 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: inet
Organization: The Internet
Lines: 14

Oh right, empty strings.  I think I would care about that - I'm pretty
fond of empty strings.  Just for grins, here's yam (yet another
modification:

   m := -1
   while m <:= *(s[i:j] ? =!l)
   return i+(-1 ~= m)



-- 
	Steve Wampler
	{....!arizona!naucse!sbw}
	{sbw@turing.cse.nau.edu}