9 Jun
1997
9 Jun
'97
4:50 p.m.
type TComparisonResult=(Less value -1, Equals, Greater, Strange value 10);
i.e. Ord(Less)=-1, Ord(Equals)=0, Ord(Greater)=1, Ord(Strange)=10.
Another problem ... it will make pred() and succ() harder if they must do succ(Greater) => Strange and pred(Strange) => Greater. I think setting the initial value would be reasonable, but not allowing a jump in the values.
--
Phil Nelson NetBSD: http://www.netbsd.org
e-mail: phil@cs.wwu.edu LPF: http://www.lpf.org
http://www.cs.wwu.edu/~phil !gifs: http://www.lpf.org/Patent/Gif/Gif.html