On 2013-04-24, at 7:55 PM, Marc Feeley <
feeley@iro.umontreal.ca> wrote:
>
> On 2013-04-24, at 3:32 PM, Mikael <
mikael.rcv@gmail.com> wrote:
>
>> Ah, realized that Gambit makes a difference internally between 1e25 and 10000000000000000000000000 . So added a test also for the latter.
>>
>>
>> Got 6,794,405 per second for |->integer| - fair enough!
>>
>> And got 384,459 for |->flonum| - could be faster.
>>
>>
>>> (->integer-test5)
>> 6794405.8
>>> (->flonum-test5)
>> 384459.2
>>
>>
>> Def:
>> (define (->integer-test5) (test (->integer 10000000000000000000000000)))
>>
>> (define (->flonum-test5) (test (->flonum 10000000000000000000000000)))
>>
>
> Here are some other options:
>
>> (##flonum.->fixnum 1.5e6)
> 1500000
>> (##flonum.->exact-int 1.5e20)
> 150000000000000000000
>> (##flonum.<-fixnum 123456)
> 123456.
>> (##flonum.<-exact-int 1234567890123456)
> 1.234567890123456e15