Artifact 939af648bc83d66956aae8cfe983c72965c964937ae890bf5ea91667ede79aa5:

• Executable file r37/lisp/csl/jlisp/test.lsp — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 323) [annotate] [blame] [check-ins using] [more...]

(plus 1 2 3)

(defun reverse (a) (rev1 a nil))

'yyy

(defun rev1 (a b)
   (cond
      ((eq a nil) b)
      (t (rev1 (cdr a) (cons (car a) b)))))

'xxx

(reverse '(a b c))

(plus2 101 999)

(defun fact (n)
   (if (equal n 0) 1
        (times n (fact (sub1 n)))))

(fact 100)

(list 1 2 'a 'x)