Contents

(defun plus (x y)
  (lispif (equal x 0) 
           y
           (plus (prec x) (succ y))))

(defun member (x y)
   (lispif (equal y (empty!)) 
           (empty!)
           (lispif (equal x (car y)) 
                   y
                   (member x (cdr y)))))

(defun join (x y)
   (lispif (equal x (empty!))
            y
            (lispcons (car x) (join (cdr x) y))))

Version data entries

3 entries across 3 versions & 1 rubygems

Version	Path
shen-ruby-0.12.1	shen/release/test_programs/TinyLispFunctions.txt
shen-ruby-0.12.0	shen/release/test_programs/TinyLispFunctions.txt
shen-ruby-0.11.0	shen/release/test_programs/TinyLispFunctions.txt