mirror of
https://github.com/open-goal/jak-project
synced 2026-06-08 20:29:54 -04:00
water111
14 lines
328 B
Common Lisp
14 lines
328 B
Common Lisp
(defmacro blist (&rest args)
|
|
(if (null? args)
|
|
(quote '())
|
|
`(cons (ash ,(car args) 3) (blist ,@(cdr args)))
|
|
)
|
|
)
|
|
|
|
(let ((my-list
|
|
(blist 24 16 32 56 72 1234 -34 25 654)
|
|
))
|
|
(format #t "~A~%" my-list)
|
|
(sort my-list (lambda ((x int) (y int)) (- y x)))
|
|
(format #t "~A~%" my-list)
|
|
) |