在方案

Question

使用地圖，我創建了一個名爲電影，滿足過程：

(define movies-satisfying   
    (lambda (movies pred selector) 
     (map (pred movies)))) 

這是我如何調用該過程。

(movies-satisfying our-movie-database 
       (lambda (movie) 
       (= (movie-year-made movie) 1974)) 
       movie-title) 

電影標題=車。 我們的電影數據庫是一個電影數據庫。

從電影標題，導演，製作日期和演員開始，它會從數據庫返回大量電影信息。如何僅返回電影標題而不是整個列表？

這是目前獲取返回的內容：

(((amarcord) 
    (federico fellini) 
    1974 
    ((magali noel) (bruno zanin) (pupella maggio) (armando drancia))) 

Answer 1

這是不可能給出一個完美的答案不知道更多的代碼（在我的評論說），但我可以勾勒出答案，關鍵是做兩遍 - 當然，假設謂詞和選擇符都被正確定義。例如，在特定的搜索將是這樣的：

(map (lambda (movie) ; 2nd pass: obtain the names of the movies returned by 1st pass 
     (movie-title movie)) 
    (filter (lambda (movie) ; 1st pass: obtain only the movies of a given year 
       (= (movie-year-made movie) 1974)) 
      our-movie-database)) 

編寫以上的參數化功能，只需通過lambdas一起，作爲參數：

(define movies-satisfying   
    (lambda (movies pred selector) 
    (map selector (filter pred movies)))) 

另外要注意的是filter絕用於查找給定謂詞的匹配，map將始終返回與原始輸入列表大小相同的列表。