aesthetic.computer
Monorepo for Aesthetic.Computer
aesthetic.computer
1(define abs
2 (lambda (n)
3 (if (< n 0)
4 (- 0 n)
5 n)))
6(define frac (lambda (n) (- n (int n))))
7(define truncate int)
8(define floor
9 (lambda (n)
10 (int
11 (if (< n 0)
12 (- n 1)
13 n))))
14(define ceiling (lambda (n) (- 0 (floor (- 0 n)))))
15(define round (lambda (n) (floor (+ n 0.5))))
16(define mod (lambda (n m) (- n (* m (int (/ n m))))))
17(define gcd
18 (lambda (n m)
19 (if (eq? m 0)
20 n
21 (gcd m (mod n m)))))
22(define lcm (lambda (n m) (/ (* n m) (gcd n m))))
23(define even? (lambda (n) (eq? (mod n 2) 0)))
24(define odd? (lambda (n) (eq? (mod n 2) 1)))