破壊フィルターの作成方法スキームで？

Question

私はフィルターの作品を得ることができますが、それは破壊的にそれをしません。以下は、起動コードとテストケースです：

(define (filter! f s) 
;;Your solution 

テストケース：

(define (big x) (> x 5)) 

(define ints (list 1 10 3 8 4 7)) 
(define ints1 (cdr ints)) 


(define filtered-ints (filter! big ints)) 
filtered-ints 
; expect (10 8 7) 

(eq? filtered-ints ints1) ; expect #t 

誰も助けてくださいもらえますか？

Answer 1

これは動作するはずです：リストライブラリ：

(define (filter! f lst) 
    (let loop ((ans lst)) 
    (cond ((null? ans) 
      ans) 
      ((not (f (car ans))) 
      (loop (cdr ans))) 
      (else 
      (scan-in f ans (cdr ans)) 
      ans)))) 

(define (scan-in f prev lst) 
    (if (pair? lst) 
    (if (f (car lst)) 
     (scan-in f lst (cdr lst)) 
     (scan-out f prev (cdr lst))))) 

(define (scan-out f prev lst) 
    (let loop ((lst lst)) 
    (if (pair? lst) 
     (if (f (car lst)) 
      (begin (set-cdr! prev lst) 
        (scan-in f lst (cdr lst))) 
      (loop (cdr lst))) 
     (set-cdr! prev lst)))) 

を私はSRFI 1でfilter!手順から上記適応。ラケットを使用している場合、上記のコードが正しく動作するためには、1つまたは2つの修正が必要であることに注意してください。たとえば、Racketはset-cdr!をサポートしていないため、代わりにset-mcdr!を使用する必要があります。