以下是一个在Racket中列出排列的方法的示例代码：

(define (permutations lst)
  (if (null? lst)
      '(())
      (apply append
             (for/list ((x lst))
               (for/list ((perm (permutations (remove x lst))))
                 (cons x perm))))))

(define (remove item lst)
  (cond ((null? lst) '())
        ((equal? item (car lst)) (cdr lst))
        (else (cons (car lst) (remove item (cdr lst))))))

(displayln (permutations '(1 2 3)))

运行这段代码，将会得到以下输出：

((1 2 3) (1 3 2) (2 1 3) (2 3 1) (3 1 2) (3 2 1))

这段代码通过递归的方式生成所有的排列。它首先检查列表是否为空，如果是，则返回一个只包含一个空列表的列表。否则，它使用for/list循环遍历列表中的每个元素，并递归地生成剩余元素的所有排列。然后，它使用cons将当前元素与每个排列组合，并使用append将所有的结果合并为一个列表。