Clojure中基于方向序列的坐标迭代转换问题求助

错误分析 #

你的代码存在三个核心问题：

• 参数处理错误：transform-map-1中错误地将past-step（单个坐标，如(0,0)）当成嵌套列表，使用(first (first past-step))取值，正确方式是直接获取坐标的x、y分量。
• 类型不匹配：方向判断用字符串（如"v"）比较，但调用时传入的是字符类型（char-array的元素为Character），需改为字符常量匹配。
• 调用逻辑错误：map无法处理状态累积（每一步依赖上一步结果），需用支持状态传递的reductions替代。

修正后的代码 #

第一步：修复坐标转换函数 #

(defn transform-map-1 [past-step dir]
  (let [[x y] past-step]
    (cond
      (= dir \v) [x (- y 1)]   ; 向下移动：y坐标减1
      (= dir \^) [x (+ y 1)]   ; 向上移动：y坐标加1
      (= dir \>) [(+ x 1) y]   ; 向右移动：x坐标加1
      (= dir \<) [(- x 1) y]))) ; 向左移动：x坐标减1

第二步：生成坐标序列 #

使用reductions累积每一步的坐标状态，再去掉初始值得到目标序列：

(def string-test "^>v<")
;; 生成包含初始坐标的全步骤序列
(def all-steps (reductions transform-map-1 [0 0] string-test))
;; 去除初始的(0,0)，得到预期输出
(rest all-steps) ; 输出：([0 1] [1 1] [1 0] [0 0])

关键说明 #

• reductions的作用是依次将函数应用到初始值和序列的每个元素，保存每一步的计算结果，完美适配这种"步步依赖"的场景。
• 使用let [[x y] past-step]解构坐标，代码更简洁易读，避免重复的first/second调用。

内容的提问来源于stack exchange，提问作者developer2015