我来帮你把这些单一功能的平移函数整合成一个更灵活的函数，同时解决距离参数的定义问题～

首先，你当前的代码里依赖了一个全局的num变量，这其实不是最佳实践——每次调用平移函数都只能用同一个距离，不够灵活。更好的方式是把距离作为参数直接传入函数，这样每次调用都可以指定不同的移动距离。

接下来，我们可以用Scheme的cond表达式来整合四个平移逻辑，根据传入的指令字符串来选择对应的运算逻辑。下面是整合后的完整代码：

; 整合后的坐标平移函数，接受三个参数：指令、坐标点、移动距离
(define (shift-coordinate direction p distance)
  (cond
    ; 左移：x坐标减去距离
    [(string=? direction "left")
     (make-posn (- (posn-x p) distance) (posn-y p))]
    ; 右移：x坐标加上距离
    [(string=? direction "right")
     (make-posn (+ (posn-x p) distance) (posn-y p))]
    ; 上移：y坐标减去距离（匹配你定义的规则：up对应y值减少）
    [(string=? direction "up")
     (make-posn (posn-x p) (- (posn-y p) distance))]
    ; 下移：y坐标加上距离
    [(string=? direction "down")
     (make-posn (posn-x p) (+ (posn-y p) distance))]
    ; 处理未知指令：可选返回原坐标，或抛出错误提示
    [else
     (error (string-append "Unknown direction: " direction))]))

怎么使用这个函数？ #

你可以直接传入指令、起始坐标和距离，完全匹配你提到的示例场景：

(define POSN-0 (make-posn 5 5))
(define test-posn (make-posn 2 3))

; 左移1单位：得到(1, 3)
(shift-coordinate "left" test-posn 1)
; 下移2.2单位：得到(2, 5.2)
(shift-coordinate "down" test-posn 2.2)
; 右移3单位到POSN-0：得到(8,5)
(shift-coordinate "right" POSN-0 3)

额外优化建议 #

如果想要让指令支持大小写（比如用户传入"LEFT"或"Up"也能识别），可以在判断前把指令转换成小写：

(define (shift-coordinate direction p distance)
  (let ([lower-dir (string-downcase direction)])
    (cond
      [(string=? lower-dir "left")
       (make-posn (- (posn-x p) distance) (posn-y p))]
      [(string=? lower-dir "right")
       (make-posn (+ (posn-x p) distance) (posn-y p))]
      [(string=? lower-dir "up")
       (make-posn (posn-x p) (- (posn-y p) distance))]
      [(string=? lower-dir "down")
       (make-posn (posn-x p) (+ (posn-y p) distance))]
      [else
       (error (string-append "Unknown direction: " direction))])))

这样修改后，不管用户传入的指令是大写、小写还是混合大小写，函数都能正确处理。

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