mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
14 lines
295 B
Common Lisp
14 lines
295 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 -)
|
|
(format #t "~A~%" my-list)
|
|
) |