mirror of
https://github.com/open-goal/jak-project
synced 2026-08-06 18:03:30 -04:00
water111
27f0a7ca44
* refactor tests and analysis passes * identity test working * combine test categories with only a few cases * more fixes
52 lines
717 B
Common Lisp
52 lines
717 B
Common Lisp
(let ((total 0))
|
|
(if (> 2 -1)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
(if (> -20 3)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
(if (> 1 1)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
(if (< -1 2)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
(if (< 2 -1)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
(if (< 3 3)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
|
|
(if (>= 2 -1)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
(if (>= -20 3)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
(if (>= 1 1)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
(if (<= -1 2)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
(if (<= 2 -1)
|
|
(+! total 999)
|
|
(+! total 1)
|
|
)
|
|
(if (<= 3 3)
|
|
(+! total 1)
|
|
(+! total 999)
|
|
)
|
|
total
|
|
) |