Racket编程实现为列表各元素追加对应位置索引的函数开发求助

核心需求 #

• 输入参数：任意元素组成的列表
• 输出规则：每个原始元素后方紧跟对应的位置序号，计数从1开始
• 参考调用效果：传入(list x y z)，输出(list x 1 y 2 z 3)

现有代码异常原因 #

当前代码仅能反转列表前两个元素，本质是递归实现的逻辑偏差：

• 最高发诱因：cons拼接结果时顺序错误，将递归处理的剩余列表结果拼到当前元素前面，直接导致头部元素位置颠倒
• 原始元素和序号的相对拼接顺序颠倒
• 未将位置序号作为递归状态持续传递，每次递归时计数被重置为初始值

可直接运行的实现方案 #

基础递归版（无第三方依赖，便于理解核心逻辑） #

(define (add-position lst)
  ; 内置辅助递归：携带两个遍历状态——当前剩余待处理列表、当前匹配的位置序号
  (define (helper remain-lst pos)
    (if (null? remain-lst)
        '() ; 遍历到列表末尾，返回空值作为递归终止节点
        ; 严格按顺序拼接：当前原元素 → 当前位置序号 → 后续递归生成的结果
        (cons (car remain-lst)
              (cons pos
                    (helper (cdr remain-lst) (+ pos 1))))))
  ; 从位置序号1开始启动递归
  (helper lst 1))

验证测试：
执行(add-position (list 'x 'y 'z))，返回结果为(x 1 y 2 z 3)，完全匹配预期要求。

标准库简洁版 #

基于Racket内置列表工具函数实现，代码更精简：

(require racket/list)
(define (add-position-simple lst)
  (flatten (map-indexed (lambda (index elem) 
                           (list elem (+ index 1))) 
                         lst)))

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