Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!uwm.edu!bionet!agate!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: <9103190300.AA10894@turing.cse.nau.edu>
Date: 19 Mar 91 03:00:46 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: inet
Organization: The Internet
Lines: 25

On Mar 18 at 19:58, Steve Wampler writes:
} 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...)

Sigh.  Make that a <:=, not >:=.


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