方案：如何将用 cons 制成的列表更改为向量？

Question

如何将使用 cons 制作的列表更改为向量？

((p b p b p b p b)
 (b p b p b p b p)
 (p b p b p b p b)
 (b p b p b p b p)
 (p b p b p b p b)
 (b p b p b p b p)
 (p b p b p b p b)
 (b p b p b p b p))

这是我的代码：

(define b "black")
(define w "white")

(define (board)
  (letrec ((ti
            (lambda (x)
          (if (eq? x 8) '()
          (cons (lh x 0) (ti (+ 1 x))))))
       (lh
        (lambda (x y)
          (if (eq? y 8) '()
          (cons (if (odd? (+ x y)) 'b 'w) (lh x (+ 1 y)))))))
    (ti 0)))

Answer 1

使用 list->vector 函数整个列表，然后使用矢量地图在每个子列表上。

或者，首先使用 map 将 list->vector 应用到每个子列表，然后在整个列表上使用 list->vector。

Answer 2

这就是你所想的吗？

#(#(p b p b p b p b)
  #(b p b p b p b p)
  #(p b p b p b p b)
  #(b p b p b p b p)
  #(p b p b p b p b)
  #(b p b p b p b p)
  #(p b p b p b p b)
  #(b p b p b p b p))