如何從列表轉換為矢量此功能？ （方案-DR球拍）

Question

(define l1 (list 1 2 3))
(define l2 (list 4 5 6))

(define (concatenar l1 l2)
        (if (null? l1) l2
        (cons (car l1) (concatenar (cdr l1) l2)))
 )

我的結果是一個列表'（1 2 3 4 6 7 8 9）

但我想要一個向量

我知道用這個功能做什么：vector-> list但是我不知道如何實現它

Answer 1

將現有過程重命名為concatenar-helper並編寫一個包裝過程：

(define (concatenar-helper l1 l2)
  (if (null? l1)
      l2
      (cons (car l1) (concatenar-helper (cdr l1) l2))))

(define (concatenar l1 l2)
  (list->vector (concatenar-helper l1 l2)))