29 lines
493 B
Plaintext
29 lines
493 B
Plaintext
(assert-eq? 7 7)
|
|
|
|
(assert-eq? 0 (+))
|
|
(assert-eq? 3 (+ 3))
|
|
(assert-eq? 5 (+ 2 3))
|
|
|
|
(assert-eq? 0 (-))
|
|
(assert-eq? -3 (- 3))
|
|
(assert-eq? -1 (- 2 3))
|
|
(assert-eq? 5 (- 8 3))
|
|
|
|
(assert-eq? 1 (*))
|
|
(assert-eq? 6 (* 3 2))
|
|
(assert-eq? 120 (* 1 2 3 4 5))
|
|
|
|
(assert-eq? 1 (/))
|
|
(assert-eq? 6 (/ 6))
|
|
(assert-eq? 3 (/ 6 2))
|
|
(assert-eq? 2 (/ 12 2 3))
|
|
|
|
(assert-eq? 1 (%))
|
|
(assert-eq? 3 (% 7 4))
|
|
(assert-eq? 2 (% 13 7 4))
|
|
|
|
(assert-eq? 1 (^))
|
|
(assert-eq? 2 (^ 2))
|
|
(assert-eq? 8 (^ 2 3))
|
|
(assert-eq? 64 (^ 2 3 2))
|