recip bug?!

Robert Reitmeier <[email protected]> Sun, 23 Nov 2003 14:21:09 +0100

Newsgroups	gmane.comp.lang.haskell.hugs.bugs
Message-ID	<[email protected]>

HUGS says:

> Main> :version
> -- Hugs Version December 2001
> Main> (-1)%1
> -1 % 1
> Main> recip ((-1)%1)
> 1 % -1
> Main> (recip ((-1)%1))+(1%1)
> 0 % -1
> Main> ((recip ((-1)%1))+(1%1))==0
> False

It's the same with HUGS Version November 2002, which
is the newest I know of.

Counterexample in GHCI:

> ghci 5.04:
> 
> *Main> (-1)%1
> -1 % 1
> *Main> recip ((-1)%1)
> -1 % 1
> *Main> (recip ((-1)%1))+(1%1)
> 0 % 1
> *Main> ((recip ((-1)%1))+(1%1))==0
> True

Kind regards,
Robert