Racket：字符串升序排序异常问题咨询及解决方法求助

你的代码如下：

(define (sort-word word)
  (list->string (sort (string->list word) char<?)))

(display (sort-word "Hello"))

问题原因 #

问题出在char<?函数——它是区分大小写的字符比较工具。在ASCII编码规则里，大写字母的数值远小于小写字母（比如#\H的ASCII值是72，#\e是101）。当你对"Hello"转成的字符列表(#\H #\e #\l #\l #\o)排序时，#\H会被判定为比所有小写字母都小，直接排在首位；而剩下的#\e #\l #\l #\o本身已经是升序状态，所以最终输出还是"Hello"。而"cba"全是小写字母，没有大小写差异，所以char<?能正常完成升序排序。

解决方法 #

有两种常用的修复思路，可根据需求选择：

方法1：统一转换为大小写后排序 #

先把字符串所有字符转成小写（或大写），排序后再转回字符串，最终结果会是全小写（或全大写）的排序结果：

(define (sort-word word)
  (let ((lower-case-chars (map char-downcase (string->list word))))
    (list->string (sort lower-case-chars char<?))))

(display (sort-word "Hello")) ; 输出 "ehllo"

方法2：使用不区分大小写的比较函数 #

直接使用Scheme标准库中的char-ci<?函数（ci代表case-insensitive，即忽略大小写）替换char<?，这样排序时会忽略字符的大小写，但保留原字符的大小写状态：

(define (sort-word word)
  (list->string (sort (string->list word) char-ci<?)))

(display (sort-word "Hello")) ; 输出 "ehllo"
(display (sort-word "hEllO")) ; 输出 "Ehllo"

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