a lisp interpreter implmention on ruby by ssword , just for study & fun

example:

(define putlist
(lambda (l)
(map puts l)))

(puts "-----------map------------")
(define map
(lambda (f l)
(if (is_null? l)
null
(cons (f (car l)) (map f (cdr l)))
)
))
(putlist (map (lambda (x) (+ x 5)) (list 1 2 3 4)))

(puts "-------------fib----------")

(define fac
(lambda (n)
(if (= n 0)
1
(* n (fac (- n 1))
))))
(puts (fac 5))

(puts "----------times-------------")
(define times
(lambda (g n)
(if (= 0 n)
1
(do
(g n)
(times g (- n 1))))))
(times puts 5)