• 0 Posts
  • 3 Comments
Joined 1 year ago
cake
Cake day: October 18th, 2023

help-circle

  • At least with abcl you may want to consider using the builtin compiler for a considerable speedup, don’t know about the others:

    C:\>abcl
    CL-USER(1): (defun fib (x) (if (< x 2) 1 (+ (fib (- x 2)) (fib (- x 1)))))
    FIB
    CL-USER(2): (time (fib 39))
    86.97 seconds real time
    0 cons cells
    102334155
    CL-USER(3): (compile 'fib)
    FIB
    NIL
    NIL
    CL-USER(4): (time (fib 39))
    8.958 seconds real time
    0 cons cells
    102334155
    CL-USER(5):