mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
12 lines
218 B
Common Lisp
12 lines
218 B
Common Lisp
(defun add-five-v2 ((a int32) (b int32) (c int32) (d int32) (e int32))
|
|
(let* ((total-1 a)
|
|
(also-d d)
|
|
(total-2 (+ total-1 b))
|
|
(total-3 (+ c total-2))
|
|
)
|
|
(+ total-3 e also-d)
|
|
)
|
|
)
|
|
|
|
(add-five 1 2 3 4 5)
|