public
Description: a Scheme written in Ruby, but implemented on the bus!
Homepage: http://bus-scheme.rubyforge.org
Clone URL: git://github.com/technomancy/bus-scheme.git
bus-scheme / examples / fib.scm
100644 6 lines (6 sloc) 0.116 kb
1
2
3
4
5
6
;; Fibonacci sequence
(define fib (lambda (x)
   (if (< x 3)
     1
     (+ (fib (- x 1))
     (fib (- x 2))))))