将船只放置在战舰中（删除重复代码）

Question

现在我的 1D 版本已经完成，我正在（慢慢地）制作《战舰》的 2D 版本。我编写了以下函数，在给定船的长度、船的位置以及船所面向的方向的情况下将船放置在板上。然而，这个功能很丑陋。非常难看。我的意思是，代码重复的情况很多。谁能指出一些可以减少代码重复的方法？

(defun place-boat (len pos dir)
  (let ((offset 0))
    (dotimes (i len)
      (if (= dir 0)
        (if (< pos 50)
          (setf (aref *ans-board*
              (+ (/ pos 10) offset)
              (mod pos 10))
            '#)
          (setf (aref *ans-board*
              (- (/ pos 10) offset)
              (mod pos 10))
            '#))
        (if (< pos 50)
          (setf (aref *ans-board*
              (/ pos 10)
              (+ (mod pos 10) offset))
            '#)
          (setf (aref *ans-board*
              (/ pos 10)
              (- (mod pos 10) offset))
            '#)))
      (incf offset))))

编辑：为了澄清起见，pos 是 1 到 100 之间的数字，表示 10x10 2D 数组中的一个单元格。

Answer 1

好吧，对于初学者来说，我认为你不需要同时使用 i 和 offset 。它们都从 0 到 len 彼此同步。

然后你可以做这样的事情来折叠 +/- 情况 <或 >= 50 到一个语句中：

(+ (/ pos 10) (* (if (< pos 50) 1 -1) offset))

这给你（未经测试）：

(defun place-boat (len pos dir)
  (dotimes (offset len)
    (if (= dir 0)
      (setf (aref *ans-board*
                  (+ (/ pos 10) (* (if (< pos 50) 1 -1) offset))
                  (mod pos 10))
            '#)
      (setf (aref *ans-board*
                  (/ pos 10)
                  (+ (mod pos 10) (* (if (< pos 50) 1 -1) offset)))
            '#))))

仍然有一些冗余。但这就是我到目前为止所得到的。

注意，我对 Common Lisp 知之甚少，所以我确信其他人可以做得更好:)

Answer 2

假设我正确理解你的需求：
如果你要处理方向 -1,-1,10,-10 你可以很容易地做这样的事情：

(defun place (pos len dir) 
    (loop for i from pos to (+ pos (* len dir)) by dir do 
       (setf (aref board i) '\#)))