Re: [Gcl-devel] GMP used for gcd

[Vanuxem Grégory]

Le ven 20/08/2004 à 17:27, Camm Maguire a écrit :
> Greetings!  This was a support item:
> 
> Implemented in CVS.  Some timings:
> 
> >(with-open-file (s "/tmp/ff" :direction :output)  (dotimes (i 50000) (let 
> >((a (random '40000000000000)) (b (random '40000000000000))) (format s "~S~%" 
> > (cons (list 'gcd a b) (gcd a b))))))
> NIL
> 
> >(time (with-open-file (s "/tmp/ff") (do () ((let ((a (read s nil nil)) ) 
> >(unless (or (not a) (equal (eval (car a)) (cdr a)) (error "~S ~S~%" a (eval 
> >(car a))))) (not a))))))
> 
> real time       :      1.020 secs
> run-gbc time    :      0.930 secs
> child run time  :      0.000 secs
> gbc time        :      0.100 secs
> NIL
> 
> 
> New:
> 
> (time (with-open-file (s "/tmp/ff") (do () ((let ((a (read s nil nil)) ) 
> (unless (or (not a) (equal (eval (car a)) (cdr a)) (error "~S ~S~%" a (eval 
> (car a))))) (not a))))))
> 
> real time       :      0.610 secs
> run-gbc time    :      0.590 secs
> child run time  :      0.000 secs
> gbc time        :      0.000 secs
> NIL
> 
> >
> 
> Please test.
> 
> Take care,

Thanks, Greg