=> (DEFINE FACT (LAMBDA (N) (DEFINE REC (LAMBDA (N ACC) (IF (ZERO? N) ACC (REC (+ N -1) (* N ACC))))) (REC N 1))) '() => (FACT 5) 120 =>
LISP Interpreter
Root / Submissions / [.]
excelCreated:
Download:Q3KEK46DVersion:0.4cSize:15.3 KB
A (barely functional) LISP-1 interpreter for SmileBASIC. This is the final version using D. Menezes' QBASIC LISP interpreter. Next version will be an adaption of Sussman / Steele's SCHEME interpreter adapted to the existing "big heap" pseudo-VM.
Sample LISP code with some functions: XKA84J4F
Version history: http://andrew.uni.cx/smilebasic.html
No posts yet (will you be the first?)