2023-09-11 13:59:37 +00:00
|
|
|
(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))
|
2023-09-11 15:54:59 +00:00
|
|
|
|
|
|
|
|
(assert-eq? true (< 5 10))
|
|
|
|
|
(assert-eq? false (< 5 5))
|
|
|
|
|
(assert-eq? false (< 5 3))
|
|
|
|
|
|
|
|
|
|
(assert-eq? true (<= 5 10))
|
|
|
|
|
(assert-eq? true (<= 5 5))
|
|
|
|
|
(assert-eq? false (<= 5 3))
|
|
|
|
|
|
|
|
|
|
(assert-eq? true (> 15 10))
|
|
|
|
|
(assert-eq? false (> 15 15))
|
|
|
|
|
(assert-eq? false (> 15 37))
|
|
|
|
|
|
|
|
|
|
(assert-eq? true (>= 15 10))
|
|
|
|
|
(assert-eq? true (>= 15 15))
|
|
|
|
|
(assert-eq? false (>= 15 37))
|
|
|
|
|
|
|
|
|
|
(assert-eq? true (ne? 5 8))
|
|
|
|
|
(assert-eq? false (ne? 5 5))
|
