boot.scm
;; For debugging only

;(define d +)
;(define one 1)
;(define two 2)

;(+ one two)

;(define f
;  (lambda (n)
;    (display n "\n")
;    (+ n 1)))

(define e
  (lambda (n a b)
    ((if n + *) a b)))

(define fib
  (lambda (n)
    (if (> n 2)
    (+ (fib (- n 1)) (fib (- n 2)))
    n)))

Comments

Add a New Comment
or Sign in as Wikidot user
(will not be published)
- +
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License