如何在Racket中将字符串转换为字符-索引列表哈希表？

针对将字符串转换为「字符→索引向量」映射哈希表的需求，这里提供几种更简洁直观的实现方式：

方式一：命令式风格简化版 #

用in-indexed直接获取字符与对应索引，结合hash-update!简化更新逻辑，最后统一将列表转为向量：

(define (s->hash s)
  (define h (make-hash))
  ; 正向遍历同时拿到字符和索引
  (for ([(c i) (in-indexed (in-string s))])
    (hash-update! h c (λ (lst) (cons i lst)) empty))
  ; 将所有列表反转并转为向量（修正头插导致的顺序问题）
  (hash-map! h (λ (k v) (values k (list->vector (reverse v)))))
  h)

方式二：纯函数式实现（无副作用） #

完全用不可变哈希表构建，更贴合Racket函数式编程理念：

(define (s->hash s)
  ; 先构建字符到索引列表的不可变哈希
  (define raw-hash
    (for/fold ([h (hash)])
              ([(c i) (in-indexed (in-string s))])
      (hash-update h c (λ (lst) (cons i lst)) empty)))
  ; 将每个列表反转并转为向量，生成最终哈希表
  (for/hash ([(k v) (in-hash raw-hash)])
    (values k (list->vector (reverse v)))))

方式三：分组逻辑直观版 #

先把字符与索引配对，按字符分组后直接构建哈希表，逻辑更易懂：

(define (s->hash s)
  ; 生成(字符 . 索引)的配对列表
  (define indexed-pairs (for/list ([(c i) (in-indexed (in-string s))]) (cons c i)))
  ; 按字符分组
  (define grouped (group-by car indexed-pairs))
  ; 遍历分组构建哈希表，索引直接转向量
  (for/hash ([group grouped])
    (values (caar group)
            (list->vector (map cdr group)))))

对比原实现的优势 #

• 用in-indexed替代手动反向遍历，代码更简洁，可读性大幅提升
• 统一处理列表转向量的逻辑，无需在遍历过程中纠结顺序问题
• 提供多种风格实现，适配不同编程习惯

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