mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 10:12:14 -04:00
Tyler Wilding
18 lines
216 B
Common Lisp
18 lines
216 B
Common Lisp
(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)
|
|
)
|
|
|