Skip to content

Latest commit

 

History

History
72 lines (68 loc) · 4.56 KB

README.md

File metadata and controls

72 lines (68 loc) · 4.56 KB
Raw

zhalisp

  • A "zha" CLISP interpreter implementation
    • Zha (Wiktionary) here means not efficient / limited / bad design.
  • There are two implementations. Python 3 version in py directory, and C++ version in cpp directory.

Implemented Functions

Lisp C++/Python Sample Result Category
+ plus (+ 1 2 3) 6 Arithmetics
- minus (- 1 2)
(- 1)		 -1
-1
* mul (* 1 2 3) 6
/ div (/ 1 2) 1/2
1+ one_plus (1+ 2) 3
1- one_minus (1- 2) 1
= eq_ (= 1 2) NIL
< lt (< 1 2) T
<= le (<= 1 2) T
> gt (> 1 2) NIL
>= ge (>= 1 2) NIL
SQRT sqrt_ (SQRT 4) 2.0
ATOM atom (ATOM NIL)
(ATOM '(1))		 T
NIL		 Unary Predicates
LISTP listp (LISTP 1)
(LISTP NIL)		 T
NIL
NULL null (NULL NIL)
(NULL T)		 T
NIL
NUMBERP numberp (NUMBERP 0)
(NUMBERP ())		 T
NIL
TYPEP typep (TYPEP 0 'NUMBER) T
SYMBOLP symbolp (SYMBOLP 'A)
(SYMBOLP 1)		 T
NIL
ZEROP zerop (ZEROP 0)
(ZEROP 1)		 T
NIL
EVENP evenp (EVENP 0)
(EVENP 1)		 T
NIL
ODDP oddp (ODDP 0)
(ODDP 1)		 NIL
T
EQ eq (EQ 0 1) NIL Binary Predicates
EQL eql (EQL 0 1) NIL
EQUAL equal (EQUAL '(0 1) '(0 1)) T
AND and_ (AND T NIL) NIL Logic
OR or_ (OR T NIL) T
NOT not_ (NOT NIL)
(NOT 0)		 T
NIL
CAR car (CAR '(0 1 2)) 0 List operations
CDR cdr (CDR '(0 1 2)) (1 2)
CONS cons (CONS 0 '(1 2)) (0 1 2)
MEMBER member (MEMBER '1 '(0 1 2)) (1 2)
LIST list_ (LIST (+ 1 2) (- 3 4)) (3 -1)
MAPCAR mapcar (MAPCAR #'+ '(1 2) '(10 20)) (11 22) High-Order Functions
MAPC mapc (MAPC #'+ '(1 2) '(10 20)) (1 2)
MAPLIST maplist (MAPLIST #'cons '(2 3) '(20 30)) (((2 3) 20 30) ((3) 30))
APPEND append (APPEND '(1 2) '(3 4) '(5 6)) (1 2 3 4 5 6)
REDUCE reduce (REDUCE #'- '(1 2 3 4)) -8
DEFUN defun (DEFUN F (X) (* X X)) F Functions
LAMBDA lambda_ ((LAMBDA (X) (* X X X)) 10) 1000
APPLY apply (APPLY #'+ '(1 2 3)) 6
FUNCALL funcall (FUNCALL #'+ 1 2 3) 6
FUNCTION function (FUNCALL (FUNCTION +) 1 2 3) 6
QUOTE quote (QUOTE (1 2 3)) (1 2 3)
EVAL eval_ (EVAL '(+ 1 2)) (3)
LET let (LET ((X 1)) X) 1 Variables
LET* let_star (LET* ((X 1) (Y X)) Y) 1
SETQ setq (SETQ X 1)
X		 1
1
SET set_ (SET 'X 1)
X		 1
1
COND cond (COND (nil 1) (t 2)) 2 Conditions
IF if_ (IF (> 1 2) 1 2) 2
DO do_ (DO () (T 1)) 1 Iteration
PROG prog (PROG ((X 1)) (RETURN X)) 1
PRINT print_ (PRINT 2) 2 I/O

Special functions

  • CLEAR-ENV clears current environment (all variables and functions)
  • (EXIT) exits interactive mode (cannot be nested function call)
  • (SETRECURSIONLIMIT 1000) sets Python recursion limit
    • No effect on C++
  • (SETSTACKLIMIT 8388608) (if LIMIT_STACK is defined) sets C++ stack size (from first call of evaluate to somewhere in current function call) to 8 MiB
    • 0 means no limit
    • No effect on Python