=> (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 / [.]
Download:Q3KEK46D
Version: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?)