|
|
|
(defn concat-lists (seq1 seq2)
|
|
(do (def l seq1)
|
|
(dotimes i (len seq2)
|
|
(set! l (push l (index seq2 i))))
|
|
))
|
|
|
|
(print (concat-lists '(1 2 3) '(4 5 6)))
|
|
;; (1 2 3 4 5 6)
|
|
|
|
; pridat example
|
|
; >>> (doc::man "push")
|
|
; (push list element) - Add an item to the end of a list |