24 Avr
2013
24 Avr
'13
19:55
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)))
(##flonum.->fixnum 1.5e6) 1500000 (##flonum.->exact-int 1.5e20) 150000000000000000000 (##flonum.<-fixnum 123456)
Here are some other options: 123456.
(##flonum.<-exact-int 1234567890123456) 1.234567890123456e15
Marc