Racket中如何不使用输入相关函数返回函数输入及列表最值实现问题

嘿，作为刚接触Racket和函数式编程的新手，这种递归处理列表的问题确实容易卡壳，尤其是资料少的时候——我当初学的时候也踩过不少坑，别担心，咱们一步步来解决这个问题。

首先明确你的需求：你要写一个递归函数，接收两个参数：

• 第一个是待遍历的目标列表
• 第二个是累积当前最大、最小值的列表（这里假设顺序是[最小值, 最大值]，你可以根据自己的需求调整顺序）

当目标列表被遍历完（也就是null）时，直接返回这个累积的最大最小值列表就行。下面是完整的实现思路和代码：

完整代码实现 #

; 递归辅助函数：处理遍历逻辑
(define (min-max-rec target-lst current-min-max)
  (if (null? target-lst)
      ; 基线条件：遍历完所有元素，返回累积的最大最小值
      current-min-max
      ; 递归步骤：处理当前元素，更新最大最小值
      (let* ([current-element (car target-lst)]
             [current-min (car current-min-max)]
             [current-max (cadr current-min-max)]
             [new-min (min current-element current-min)]
             [new-max (max current-element current-max)])
        (min-max-rec (cdr target-lst) (list new-min new-max)))))

; 对外暴露的主函数：处理初始情况
(define (find-min-max lst)
  (cond
    [(null? lst) '()] ; 如果输入列表为空，返回空列表
    [else (min-max-rec lst (list (car lst) (car lst)))])) ; 用第一个元素初始化最大最小值

代码解释 #

咱们拆开来理解每一部分：

1. 基线条件：当target-lst是null时，说明已经把所有元素都遍历比较过了，直接返回current-min-max——这就是你要的"返回……"的内容。
2. 递归步骤：
   • 用let*一次性定义多个变量，方便后续使用：取出当前元素、当前累积的最小值和最大值。
   • 用min和max函数比较当前元素和累积值，得到新的最小值和最大值。
   • 递归调用min-max-rec，把剩下的列表（(cdr target-lst)）和新的累积列表传进去。
3. 主函数find-min-max：帮你处理初始情况——如果输入列表为空就返回空；如果非空，就用列表的第一个元素初始化最大最小值（因为单个元素的最大和最小都是它自己），然后调用递归函数开始遍历。

测试示例 #

你可以试试这些测试用例验证效果：

(find-min-max '(3 1 4 1 5 9 2 6)) ; 返回 '(1 9)
(find-min-max '(5)) ; 返回 '(5 5)
(find-min-max '()) ; 返回 '()

函数式编程的核心就是用递归代替循环，慢慢习惯这种思维就会越来越顺手啦！

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