mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
14 lines
238 B
Plaintext
14 lines
238 B
Plaintext
|
;-*-Scheme-*-
|
||
|
|
|
||
|
|
(test-setup 18 #f)
|
||
|
|
|
||
|
|
(defun ash ((value integer) (shift-amount integer))
|
||
|
|
(if (> shift-amount 0)
|
||
|
|
(shlv value shift-amount)
|
||
|
|
(sarv value (- shift-amount))
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
(+ (ash (+ 1 2) (/ 6 2)) (ash (- 12) (- 1)))
|
||
|
|
|