ラケットスキーム - ストリームから重複した連続する文字を削除する

Question

与えられたストリームから余分なスペースをすべて再帰的に削除する関数を実装しようとしています。どんな連続したスペースも削除しなければなりません。私はこれを正しく実装する方法を理解できません。

ストリームをリストに変換してそのように操作しようとしましたが、各ストリームのテストで提供される内容に基づいて、新しいストリームを作成して返す方法がわかりません。ここでは（新しいストリームを構築し、要素を削除）

を私はストリームマップを使用しようとしましたが、このような状況で私のために動作するようには思えないのremove-余分なスペースの私の現在の壊れた実装です：

(define remove-extra-spaces 
    (lambda (str) 
    (cond (not (not-more-than-one-space str 0) (stream-append (stream-first str) (remove-extra-spaces (stream-rest str)))) 
      (else (remove-extra-spaces (stream-rest str))) 
     ))) 


    (define not-more-than-one-space 
    (lambda (str count) 
     (cond ((stream-empty? str) #T) 
      ((equal? (stream-first str) #\space) (not-more-than-one-space (stream-rest str) (+ count 1))) 
      ((> count 1) #F) 
      (else #T) 
      ) 
    )) 

複数の連続したスペースがある場合に役立つテストを書いています。しかし、私はこのテストを使って、それを通過するものに基づいて新しいストリームを作成する方法を理解できません。私がstream-mapと組み合わせて使用​​しようとしたときに、ストリームフィルタが動作しませんでした。

Answer 1

stream-consの使い方を知っていますか？これはおそらくこれを実装する最も簡単な方法です。ここでは（私はそれをよりよく知っているので、代わりにracket/streamのSRFI 41ストリームライブラリを使用しています）私の実装です：

(require srfi/41) 
(define-stream (collapse-spaces strm) 
    (stream-let loop ((was-space #f) 
        (strm strm)) 
    (cond ((stream-null? strm) strm) 
      ((char=? (stream-car strm) #\space) 
      (if was-space 
       (loop #t (stream-cdr strm)) 
       (stream-cons #\space (loop #t (stream-cdr strm))))) 
      (else (stream-cons (stream-car strm) 
          (loop #f (stream-cdr strm))))))) 

サンプル実行：

> (stream->list (collapse-spaces (stream #\f #\o #\o #\space #\space #\b #\a #\r))) 
(#\f #\o #\o #\space #\b #\a #\r)