[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] GMP used for gcd
From: |
Vanuxem Grégory |
Subject: |
Re: [Gcl-devel] GMP used for gcd |
Date: |
Fri, 20 Aug 2004 19:00:18 +0200 |
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