25 lines
460 B
Makefile
25 lines
460 B
Makefile
|
(assert-eqv! 0 (+))
|
||
|
(assert-eqv! 5 (+ 5))
|
||
|
(assert-eqv! 8 (+ 5 3))
|
||
|
(assert-eqv! 17 (+ 5 3 9))
|
||
|
|
||
|
(assert-eqv! 0 (-))
|
||
|
(assert-eqv! -5 (- 5))
|
||
|
(assert-eqv! 2 (- 5 3))
|
||
|
(assert-eqv! -7 (- 5 3 9))
|
||
|
|
||
|
(assert-eqv! 1 (*))
|
||
|
(assert-eqv! 2 (* 2))
|
||
|
(assert-eqv! 42 (* 6 7))
|
||
|
(assert-eqv! 24 (* 2 3 4))
|
||
|
|
||
|
(assert-eqv! 1 (/))
|
||
|
(assert-eqv! 0.5 (/ 2.0))
|
||
|
(assert-eqv! 0 (/ 2))
|
||
|
(assert-eqv! 6 (/ 36 6))
|
||
|
(assert-eqv! 3 (/ 36 6 2))
|
||
|
|
||
|
(assert-eqv! 8 (^ 2 3))
|
||
|
(assert-eqv! 1.5 (% 7.5 2.0))
|
||
|
|