mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
20 lines
338 B
Scheme
20 lines
338 B
Scheme
;-*-Scheme-*-
|
|
|
|
(test-setup 15 #f)
|
|
|
|
;; add a bunch of numbers together in a single function, in a strange order.
|
|
|
|
(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)
|
|
|
|
|