Pascal逆序打印数字代码转Scheme及Scheme迭代访问问题求助

你提供的Pascal代码逻辑为：创建长度为5的整数数组，给下标1到5的元素依次赋值为1到5，再倒序从下标5到1逐个输出元素值。

常见疑问澄清 #

你提到的「Scheme没有内置迭代方法」是误解，Scheme R5RS及更高版本标准均内置do迭代语法，可直接实现类Pascal的循环逻辑，递归只是可选的实现方案。
Scheme中使用向量（vector） 对应Pascal的固定长度数组，相关操作对应关系如下：

• 创建固定长度数组：make-vector 长度 对应Pascal的数组类型声明
• 修改指定下标元素：vector-set! 数组 下标 值 对应Pascal的arr[i]:=值
• 读取指定下标元素：vector-ref 数组 下标 对应Pascal的arr[i]

转换后代码 #

版本1：do循环实现（和Pascal逻辑完全对齐，使用1下标） #

无需处理下标偏移，直接复用Pascal的1~5下标逻辑：

(let ((arr (make-vector 6))) ; 下标0位闲置，使用1~5位对应原Pascal数组下标
  ; 正序赋值循环，对应for i:=1 to 5 do arr[i]:=i
  (do ((i 1 (+ i 1)))
      ((> i 5))
    (vector-set! arr i i))
  ; 倒序输出循环，对应for i:=5 downto 1 do writeln(arr[i])
  (do ((i 5 (- i 1)))
      ((< i 1))
    (display (vector-ref arr i))
    (newline)))

版本2：递归实现（符合Scheme函数式编程风格） #

如果偏好递归写法，也可以用尾递归实现相同逻辑：

; 正序填充数组
(define (fill-array arr idx)
  (when (<= idx 5)
    (vector-set! arr idx idx)
    (fill-array arr (+ idx 1))))

; 倒序输出数组
(define (print-reverse arr idx)
  (when (>= idx 1)
    (display (vector-ref arr idx))
    (newline)
    (print-reverse arr (- idx 1))))

; 主逻辑
(let ((arr (make-vector 6)))
  (fill-array arr 1)
  (print-reverse arr 5))

两个版本运行结果均和原Pascal代码一致，依次输出5、4、3、2、1五个数字，每个数字单独占一行。

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