lota things

2019-06-27 11:11:18 +02:00
parent 6f5ecc87b0
commit efded2f9b8
13 changed files with 3211 additions and 199 deletions
@@ -0,0 +1,39 @@
+(define cons pair)
+(define car  first)
+(define cdr  rest)
+
+(define (caar seq)
+  (car (car seq)))
+
+(define (cddr seq)
+  (cdr (cdr seq)))
+
+(define (cadr seq)
+  (car (cdr seq)))
+
+(define (cdar seq)
+  (cdr (car seq)))
+
+(define (caaar seq)
+  (car (caar seq)))
+
+(define (caadr seq)
+  (caar (cdr seq)))
+
+(define (cadar seq)
+  (car (cdr (car seq))))
+
+(define (caddr seq)
+  (car (cddr seq)))
+
+(define (cdaar seq)
+  (cdr (caar seq)))
+
+(define (cdadr seq)
+  (cdr (car (cdr seq))))
+
+(define (cddar seq)
+  (cddr (car seq)))
+
+(define (cdddr seq)
+  (cdr (cddr seq)))