this post was submitted on 21 Oct 2023
1 points (100.0% liked)

Lisp

61 readers
3 users here now

founded 2 years ago
MODERATORS
 

sbcl-lisp : 0.7s

racket-scheme : 0.7s

ccl-lisp : 6s

kawa-scheme : 14s

abcl-lisp : 45s

you are viewing a single comment's thread
view the rest of the comments
[–] mfreddit@alien.top 1 points 2 years ago

You didn't say on which machine you did your measurements... Here's Gambit on a 5 year old intel based machine achieving 0.148 seconds:

$ ./configure --enable-single-host --enable-march=native CC=gcc-9 ; make -j8 ; sudo make install
...
$ gsc -exe fib.scm
$ ./fib
(time (fib 39))
    0.147854 secs real time
    0.147816 secs cpu time (0.147732 user, 0.000084 system)
    no collections
    64 bytes allocated
    3 minor faults
    no major faults
63245986
$ sysctl -n machdep.cpu.brand_string
Intel(R) Core(TM) i7-8700B CPU @ 3.20GHz
$ cat fib.scm
(declare
  (standard-bindings)
  (fixnum)
  (not safe)
  (block)
  (not interrupts-enabled)
  (inlining-limit 1000)
)

(define (fib n)
  (if (< n 2)
      n
      (+ (fib (- n 1))
         (fib (- n 2)))))

(println (time (fib 39)))