16 lines
422 B
Text
16 lines
422 B
Text
; file: arraycon.lsp
|
|
; url: http://rosettacode.org/wiki/Array_concatenation
|
|
; author: oofoe 2012-01-28
|
|
|
|
(println "Append lists: " (append '(3 a 5 3) (sequence 1 9)))
|
|
|
|
(println "Multi append: "
|
|
(append '(this is)
|
|
'(a test)
|
|
'(of the emergency)
|
|
(sequence 3 1)))
|
|
|
|
(println "Append arrays: "
|
|
(append '((x 56) (b 99)) '((z 34) (c 23) (r 88))))
|
|
|
|
(exit)
|