刪除文件名，如果它已經在列表

Question

我想從列表中刪除一個項目（文件名），沒有我做過的工作，沒有從文檔中刪除功能，沒有從這個網站..這裏是我的代碼：

#lang racket 

(define file-collection '()) 

(for ([f (directory-list)] #:when (regexp-match? "\\.log$" f)) 
    (set! file-collection (foldr cons (list f) file-collection))) 

(define (check-file file-in) 
    (for/list ([i (file->lines file-in)]) 
    (cond ((equal? i "[robot warrior]") (remove file-in file-collection))))) 

(for ([i file-collection])(check-file i)) 

的是，無論我怎麼努力，文件收集保持不變，所有文件都包含在集合中。不過，如果我使用displayln文件中，只有文件而不[機器人戰士]顯示，這是完美的，這就是我需要的，但我需要以某種方式存儲它。我發現它拒絕工作很奇怪/怪異。

Answer 1

以下是從列表中刪除某些文件的兩種方法。

#lang racket 

(define all-files '("file1" "file2" "file3" "file4")) 

(for/list ([file all-files] 
      #:unless (equal? file "file2")) 
    file) 

(filter (lambda (file) (not (equal? file "file2"))) 
     all-files) 

結果是：

'("file1" "file3" "file4") 
'("file1" "file3" "file4") 

注意，從現有列表二者for/list和filter而漢刪除元素產生新的列表具有相同的元件（以及省略在這種情況下「文件2」）。