Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!usc!elroy.jpl.nasa.gov!decwrl!ucbvax!TURING.CSE.NAU.EDU!sbw
From: sbw@TURING.CSE.NAU.EDU (Steve Wampler)
Newsgroups: comp.lang.icon
Subject: Re: RE: terrible code
Message-ID: <9103190257.AA10874@turing.cse.nau.edu>
Date: 19 Mar 91 02:57:02 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: inet
Organization: The Internet
Lines: 21

On Mar 18 at 19:47, isidev!nowlin@uunet.uu.net writes:
} 
}    m := 0
}    while *(p := (s[i:j] ?  =!l)) > m do m := *p
}    if /p then fail
}    else return i + m
} 

Out of curiousity (and because I like bizarre code), couldn't
the above be written:

    m := 0
    while m >:= *(s[i:j] ? =!l)
    return i + (0 ~= m)

instead?  (No, I haven't tried it, but it seems the same to me...)

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