mirror of
https://github.com/open-goal/jak-project
synced 2026-08-06 18:03:30 -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)
|
|
)
|
|
|