Re: [Chicken-users] numbers egg slow?

[Daishi Kato]

At Thu, 06 Oct 2005 14:50:18 +0900,
Daishi Kato wrote:
> I also tried to compare with fx+. How would you explain this?

Oops, my fault... It was reasonable.

% csi -eval '(define m (expt 2 17))(print (cpu-time))(let loop ([i 0]) (or (> i 
m) (loop (+ i 1))))(print (cpu-time))'               
2
64
% csi -eval '(use numbers)(define m (expt 2 17))(print (cpu-time))(let loop ([i 
0]) (or (> i m) (loop (+ i 1))))(print (cpu-time))'
4
86
% csi -eval '(use numbers)(define m (expt 2 17))(print (cpu-time))(let loop ([i 
0]) (or (> i m) (loop (fx+ i 1))))(print (cpu-time))'
2
67

Now, let me check (expt).

Daishi