29 lines
575 B
Common Lisp
29 lines
575 B
Common Lisp
; benchmark
|
|
|
|
(
|
|
; Basics
|
|
|
|
(test "add" (add 8 4 2) 14)
|
|
(test "sub" (sub 8 4 2) 2)
|
|
(test "mul" (mul 8 4 2) 64)
|
|
(test "div" (div 8 4 2) 1)
|
|
|
|
; Others
|
|
|
|
(test "mod" (mod 6 4) 2)
|
|
(test "clamp" (clamp 12 4 8) 8)
|
|
(test "step" (step 12 10) 10)
|
|
|
|
; Logic
|
|
|
|
(test "lt" (lt 3 4) true)
|
|
(test "gt" (gt 3 4) false)
|
|
|
|
; Arrays
|
|
|
|
(test "first" (first ("a" "b" "c")) "a")
|
|
(test "last" (last ("a" "b" "c")) "c")
|
|
(test "range simple" (range 0 4) (0 1 2 3 4))
|
|
(test "range with step" (range 0 4 2) (0 2 4))
|
|
(test "range with negative step" (range 0 -4 -1) (0 -1 -2 -3 -4))
|
|
) |