如何在Scheme中实现适用于向量的vector-for-each函数？

当然可以在Scheme里实现类似列表for-each的向量遍历逻辑！实际上，遵循R7RS标准的Scheme实现（比如Guile、Chicken Scheme）已经内置了vector-for-each，直接调用就能满足你的需求：

(vector-for-each display (vector "red" "orange"))
; 输出: redorange

如果需要自己手动实现（比如针对不支持R7RS的旧版本Scheme），以下两种方式是最常用且符合Scheme风格的：

1. 递归实现 #

利用向量的索引进行递归遍历，逻辑清晰且贴合函数式编程习惯：

(define (vector-for-each proc vec)
  (let loop ((i 0))
    (when (< i (vector-length vec))
      (proc (vector-ref vec i))
      (loop (+ i 1)))))

解释： #

• 定义内部递归函数loop，从索引0开始遍历
• 每次检查当前索引是否小于向量长度，若是则对该索引对应的元素调用传入的过程proc
• 递归调用loop处理下一个索引，直到遍历完所有元素

2. 迭代实现（使用do循环） #

如果你更喜欢迭代风格，Scheme的do循环可以写出更紧凑的代码：

(define (vector-for-each proc vec)
  (do ((i 0 (+ i 1)))
      ((= i (vector-length vec)))
    (proc (vector-ref vec i))))

解释： #

• do循环初始化索引i为0，每次循环后i自增1
• 当i等于向量长度时，循环终止
• 循环体中对当前索引的元素应用过程proc

验证你的需求 #

如果你希望输出结果带空格分隔，可以这样调用：

(vector-for-each (lambda (x) (display x) (display " ")) (vector "red" "orange"))
; 输出: red orange 

不管是内置还是手动实现的版本，都和列表for-each的行为一致：按从左到右的顺序对每个元素应用过程，主要用于处理副作用（比如输出、修改外部状态等），不会返回有意义的结果。

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