[plt-scheme] Test a numbers representation to see if it's complex?

Matthew Flatt skrev:
> At Mon, 04 Jun 2007 17:03:06 -0500, Chongkai Zhu wrote:
>> Yes, my `0-imag-part?' fails for some cases.
> 
> Which cases?
> 
>> Jens Axel Søgaard wrote:
>>> The problem is that 3.0 and 3.0+0.0i is the same number.
>>> The real part and the imaginary part shares the exactness.
> 
> No, they're different:
> 
>  > (eqv? 3.0 3.0+0.0i)
>  #f

That's odd.

 From R5RS section 6.1:

   The eqv? procedure returns #t if:

     * obj1 and obj2 are both numbers, are numerically equal (see =,
       section 6.2), and are either both exact or both inexact.


   > (= 3.0 3.0+0.0i)
   #t

   > (inexact? 3.0)
   #t

   > (inexact? 3.0+0.0i)
   #t

-- 
Jens Axel Søgaard