scheme - 如何反转 Racket 中的序列？

Question

我学习 Racket 只是为了好玩。我有一个问题。有没有办法逆转 sequence ？一种用于反转的通用函数，例如:

(sequence-reverse "Hello")
(sequence-reverse '(1 2 3))

Answer 1

问题在于某些序列是无限的，例如 (in-integers) 给出的序列。对于有限序列，您可以使用:

(define (sequence-reverse s)
  (reverse
    (sequence->list s)))