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