[comp.lang.icon] terible code

sbw@TURING.CSE.NAU.EDU (Steve Wampler) (03/19/91)

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}