Skip to content
Lisp implementation in Eiffel
Eiffel
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
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
You can’t perform that action at this time.