Welcome to the CHICKEN Scheme pasting service

fixnum-arithmetic added by chickendan on Wed Apr 10 10:37:49 2019

csc -O5 -strict-types -fixnum-arithmetic: 7.964s
csc -O5 -strict-types:                    8.105s
csc -O5 -strict-types (and fx functions): 0.246s
c/nim -O3 baseline:                       0.211s

---

(define (fib n)
  (if (or (= n 0) (= n 1))
      n
      (+ (fib (- n 1)) (fib (- n 2)))))

(let loop ((n 0))
  (when (< n 35)
    (print "n=" n " => " (fib n))
    (loop (+ n 1))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What is the operator to construct pairs?
Visually impaired? Let me spell it for you (wav file) download WAV