如何访问二维列表中的索引并在方案/球拍中更改其值？

Question

我有以下空列表（在所有内容均初始化为破折号的意义上为空）

（（（---）（---）（---））

我希望访问此列表中的特定索引（例如0,1）并将其设置为1

（（-1-）（---）（---））

这如何在计划中完成？

Answer 1

在球拍中，您可以使用for/list将结果累积到一个列表中。

e是row（列表）中的每个元素，而i，j则跟踪l中的索引位置。

;; [Listof [Listof Any]] Nat Nat Any -> [Listof [Listof Any]]
;; changes the element at (`x`, `y`) position in `l` to `to`
(define (change-at l x y to)
  (for/list ([row l] [i (length l)])
    (for/list ([e row] [j (length row)])
      (if (and (= x i) (= y j))
          to
          e))))

(change-at '((- - -) (- - -) (- - -)) 0 1 1)
;; => '((- 1 -) (- - -) (- - -))