| Date: | 2007-10-25 00:35 |
| Subject: | |
| Security: | Public |
yitzhak@hiawatha::lisp $ wc *
8 17 86 Makefile
154 419 3378 lisp.c
34 60 552 lisp.h
102 263 2069 parser.c
28 49 550 parser.h
326 808 6635 total
I swear I didn't even try to make it short. It's just... LISP.
post a comment
| Date: | 2007-10-25 10:57 |
| Subject: | 4... 3... 2... |
| Security: | Public |
We have recursion:
yitzhak@hiawatha::lisp $ ./lisp
> ((label fib (lambda (n) (cond ((eq n 0) 0) ((eq n 1) 1) ('t (+ (fib (- n 1)) (fib (- n 2))))))) 10)
55
(also, integer arithmetic)
2 comments | post a comment
|
![[info]](http://p-stat.livejournal.com/img/userinfo.gif){kind=small}
agnoster's journal