Monorepo for Aesthetic.Computer
aesthetic.computer
1(define null? not)
2(define err? (lambda (x) (eq? x 'ERR)))
3(define number? (lambda (x) (eq? (* 0 x) 0)))
4(define symbol?
5 (lambda (x)
6 (and
7 x
8 (not (err? x))
9 (not (number? x))
10 (not (pair? x)))))
11(define atom?
12 (lambda (x)
13 (or
14 (not x)
15 (symbol? x))))
16(define list?
17 (lambda (x)
18 (if (pair? x)
19 (list? (cdr x))
20 (not x))))
21(define equal?
22 (lambda (x y)
23 (or
24 (eq? x y)
25 (and
26 (pair? x)
27 (pair? y)
28 (equal? (car x) (car y))
29 (equal? (cdr x) (cdr y))))))
30(define negate (lambda (n) (- 0 n)))
31(define > (lambda (x y) (< y x)))
32(define <= (lambda (x y) (not (< y x))))
33(define >= (lambda (x y) (not (< x y))))
34(define = (lambda (x y) (eq? (- x y) 0)))
35(define list (lambda args args))
36(define cadr (lambda (x) (car (cdr x))))
37(define caddr (lambda (x) (car (cdr (cdr x)))))
38(define begin (lambda (x . args) (if args (begin . args) x)))