Re: [ikarus-users] Quoting procedures in the FP style

[Eduardo Cavazos]

Abdulaziz Ghuloum wrote:

(letrec ((fib_0
          (lambda (x_1)
            (if (<= x_1 '1)
                '1
                (+ (fib_0 (- x_1 '1)) (fib_0 (- x_1 '2)))))))
  (time-it '"(fib 34)"
    (lambda () (+ (fib_0 '33) (fib_0 '32)))))

Cute, no?

That's just plain bad-ass.

Ed