simon/beowulf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mostly work on generating better documentation.

Browse source
This commit is contained in:
Simon Brooke 2023-04-01 14:28:50 +01:00
parent 4c2380ca26
commit 41cecdc522
34 changed files with 1531 additions and 794 deletions
Download patch file Download diff file Expand all files Collapse all files

29
resources/lisp1.5.lsp
View file

@ -13,6 +13,34 @@
(APPLY)
(ATOM)
(CAR)
(CAAAAR LAMBDA (X) (CAR (CAR (CAR (CAR X)))))
(CAAADR LAMBDA (X) (CAR (CAR (CAR (CDR X)))))
(CAAAR LAMBDA (X) (CAR (CAR (CAR X))))
(CAADAR LAMBDA (X) (CAR (CAR (CDR (CAR X)))))
(CAADDR LAMBDA (X) (CAR (CAR (CDR (CDR X)))))
(CAADR LAMBDA (X) (CAR (CAR (CDR X))))
(CAAR LAMBDA (X) (CAR (CAR X)))
(CADAAR LAMBDA (X) (CAR (CDR (CAR (CAR X)))))
(CADADR LAMBDA (X) (CAR (CDR (CAR (CDR X)))))
(CADAR LAMBDA (X) (CAR (CDR (CAR X))))
(CADDAR LAMBDA (X) (CAR (CDR (CDR (CAR X)))))
(CADDDR LAMBDA (X) (CAR (CDR (CDR (CDR X)))))
(CADDR LAMBDA (X) (CAR (CDR (CDR X))))
(CADR LAMBDA (X) (CAR (CDR X)))
(CDAAAR LAMBDA (X) (CDR (CAR (CAR (CAR X)))))
(CDAADR LAMBDA (X) (CDR (CAR (CAR (CDR X)))))
(CDAAR LAMBDA (X) (CDR (CAR (CAR X))))
(CDADAR LAMBDA (X) (CDR (CAR (CDR (CAR X)))))
(CDADDR LAMBDA (X) (CDR (CAR (CDR (CDR X)))))
(CDADR LAMBDA (X) (CDR (CAR (CDR X))))
(CDAR LAMBDA (X) (CDR (CAR X)))
(CDDAAR LAMBDA (X) (CDR (CDR (CAR (CAR X)))))
(CDDADR LAMBDA (X) (CDR (CDR (CAR (CDR X)))))
(CDDAR LAMBDA (X) (CDR (CDR (CAR X))))
(CDDDAR LAMBDA (X) (CDR (CDR (CDR (CAR X)))))
(CDDDDR LAMBDA (X) (CDR (CDR (CDR (CDR X)))))
(CDDDR LAMBDA (X) (CDR (CDR (CDR X))))
(CDDR LAMBDA (X) (CDR (CDR X)))
(CDR)
(CONS)
(COPY
@ -79,6 +107,7 @@
(COND
((NULL X) (U)) ((EQ (CAR X) Y) (CDR X)) ((QUOTE T) (PROP (CDR X) Y U))))
(QUOTIENT)
(RANGE LAMBDA (N M) (COND ((LESSP M N) (QUOTE NIL)) ((QUOTE T) (CONS N (RANGE (ADD1 N) M)))))
(READ)
(REMAINDER)
(REPEAT

3
resources/mexpr/range.mexpr.lsp Normal file
View file

@ -0,0 +1,3 @@
;; this isn't a standard Lisp 1.5 function
range[n; m] = [lessp[m; n] -> NIL; T -> cons[n; range[add1[n]; m]]]