有没有办法使用索引对列表进行排序？

Question

下面的代码可以对列表进行排序，除了我必须使用列表操作，如first,second等。如果我只有一个整数索引，我将如何使用它进行排序？

#lang racket 
(define lst '(("1" "Z") ("2" "A"))) 

(sort lst #:key second string<?) 

我可以想出一个解决方案，这是创建一个功能或一个语法定义为int转换为适当的操作。如索引为0，则将其转换为first。但这似乎并不令人愉快，而这种类型的列表操作只能达到tenth？

谢谢！

Answer 1

使用list-ref：

> (define lst '(1 2 3 4 5)) 
> (list-ref lst 0) 
1 
> (list-ref lst 4) 
5 

第一个参数是引用列表，并且第二个是索引。

函数first到tenth实际上只是list-ref的简写。

Answer 2

你也可以指定比较：

(define (sorter ll i) 
    (sort ll 
     (lambda(a b) 
      (if (string<? (list-ref a i) (list-ref b i)) 
       #t #f)))) 

(define lst '(("1" "Z") ("2" "A"))) 
(sorter lst 0) 
(sorter lst 1) 

输出：

'(("1" "Z") ("2" "A")) 
'(("2" "A") ("1" "Z"))