Lisp implementation in Eiffel
Eiffel
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
README
cons.e
eiffelisp.e
error.e
expr.e
lobj.e
nil.e
num.e
parse_state.e
subr.e
sym.e

README

== EiffeLisp

Lisp implementation in Eiffel.


== How to use (with EiffelStudio)

% ec eiffelisp.e && ./EIFGENs/eiffelisp/W_code/eiffelisp
> (car '(a b c))
a
> (cdr '(a b c))
(b c)
> (cons 1 (cons 2 (cons 3 ())))
(1 2 3)
> (defun fact (n) (if (eq n 0) 1 (* n (fact (- n 1)))))
fact
> (fact 10)
3628800
> (defun fib (n) (if (eq n 1) 1 (if (eq n 0) 1 (+ (fib(- n 1)) (fib(- n 2))))))
fib
> (fib 12)
233
> (defun gen (n) (lambda (m) (setq n (+ n m))))
gen
> (setq x (gen 100))
<expr>
> (x 10)
110
> (x 90)
200
> (x 300)
500