在球拍中重新排序流

Question

我想编写一个过程，将一个流(数据流)中的项重新排列为另一个流( order流)指定的顺序，该流由指定所需顺序的项号组成。

例如，如果数据流以4，13，2，8开头，顺序流以3，1，4，2开头，那么结果流将以2，4，8，13开头。(结果的第一项是数据的第三项，结果的第二项是数据的第一项，依此类推。)

我到目前为止..。

 (define (reorder order-stream data-stream)
     (cond ((stream-null? order-stream) the-empty-stream)
           ((stream-null? data-stream) the-empty-stream)
           (else (cons-stream (stream-ref order-stream data-stream))))


(define (stream-ref s n)
  (if (= n 0)
      (stream-car s)
      (stream-ref (stream-cdr s) (- n 1))))

然而，输出并不像预期的那样。

Answer 1

使用球拍流。

请注意，

(stream-ref data-stream (stream-first order-stream))

将使用订单流的第一个元素来挑选数据流的一个元素。

还要注意的是，除非数据流支持随机访问，否则这将是很慢的。

#lang racket
(require racket/stream)

(define (reorder order-stream data-stream)
  (cond ((stream-empty? order-stream) empty-stream)
        (else (stream-cons (stream-ref data-stream (stream-first order-stream))
                           (reorder (stream-rest order-stream) data-stream)))))


(define ones (stream-cons 1 ones))

(define (stream-add s1 s2)
  (stream-cons (+ (stream-first s1) (stream-first s2))
               (stream-add (stream-rest s1) (stream-rest s2))))

(define fibonacci (stream-cons 1 (stream-cons 1 (stream-add fibonacci (stream-rest fibonacci)))))
(for/list ([x fibonacci] [n 10]) x)                  ; '(1 1 2 3 5 8 13 21 34 55)
(for/list ([x (reorder '(3 1 4 2 10) fibonacci)]) x) ; '(3 1 5 2 89)