langs a-z

Task/Array-concatenation/NewLISP/array-concatenation.newlisp

@@ -0,0 +1,16 @@
+; 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)