[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Is this a good use for "compile"

From: Mark Carter
Subject: Re: Is this a good use for "compile"
Date: Tue, 20 Feb 2018 09:28:07 +0000
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.6.0

On 20/02/18 00:08, Vítor De Araújo wrote:

We can try this out:

scheme@(guile-user)> (use-modules (system base compile))
scheme@(guile-user)> (define exp '(lambda (n)
                                    (let loop ([i n] [total 0])
                                      (if (= i 0)
                                        (loop (1- i) (+ i total))))))
scheme@(guile-user)> (define f1 (eval exp (interaction-environment)))
scheme@(guile-user)> (define f2 (compile exp #:env (interaction-environment)))
scheme@(guile-user)> ,time (f1 1000000)
$2 = 500000500000
;; 0.845240s real time, 0.895351s run time.  0.071494s spent in GC.
scheme@(guile-user)> ,time (f2 1000000)
$3 = 500000500000
;; 0.067317s real time, 0.067278s run time.  0.000000s spent in GC.

So the answer does seem to be "yes": the compiled procedure is much faster.

Thanks. A 10X speedup is just what the doctor ordered.

As it happened, I was looking for a way to time functions, and didn't realise that guile has a convenient way of doing this.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]