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