映射和反向子列表

Question

我想編寫一個反轉列表中的所有子列表（但只有頂級子列表）的函數。我試圖弄清楚我是否可以只使用filter這個清單，然後使用map做map做 (filter list? (reverse '((1 2) 9 (16 5) 64)))，但這只是逆轉到((16 5) (1 2))。 我在尋找一個輸出：((2 1) 9 (5 16) 64))。

我應該使用map和reverse，但我只是無法在那裏開始。

Answer 1

這很簡單，你只需要問，如果每個項目是試圖扭轉之前的列表：

(define lst '((1 2) 9 (16 5) 64)) 

(map (lambda (e) 
     (if (list? e) (reverse e) e)) 
    lst) 

> '((2 1) 9 (5 16) 64) 

filter不會在這種情況下工作，因爲你有興趣處理所有輸入列表中的元素，即使只有實際的列表需要顛倒。