mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
24 lines
257 B
Scheme
24 lines
257 B
Scheme
;-*-Scheme-*-
|
|
|
|
(test-setup 4 #f)
|
|
|
|
(defun negative ((a integer))
|
|
(- a)
|
|
)
|
|
|
|
(defun minus-two ((a integer))
|
|
(- a 2)
|
|
)
|
|
|
|
|
|
(defun sub-test ((a integer) (b integer))
|
|
(- 1 a b)
|
|
)
|
|
|
|
(let ((x (sub-test 1 (minus-two 7))))
|
|
(- 1 (negative -2) x)
|
|
)
|
|
|
|
|
|
|