將元素替換爲列表方案

Question

我需要用Scheme中的另一個元素替換列表中的元素，但問題是我需要替換的列表可以嵌套。

例如，如果我有清單'(1 (2 3 4 5) (6 7))，並且需要用9替換5，則我的輸出應爲'(1 (2 3 4 9) (6 7))。

你能幫我解決這個問題嗎？

Answer 1

沒有爲解決這種問題基本策略：

1. 首先，解決它爲一個單位名單。即，如果輸入列表沒有子列表，則寫入函數使其起作用。
2. 然後，添加一個條件，以便如果您正在檢查的元素是一個列表，然後用該列表遞歸到您的函數中。

這裏的一些骨骼代碼：

(define (replace lst from to) 
    (cond ((null? lst) '())    ;; end of input 
     ((list? (car lst)) <???>)  ;; encountered a sublist 
     ((equal? (car lst) from) <???>) ;; found the element we're replacing 
     (else <???>)))     ;; everything else 

注意，第二cond條款，(list? (car lst))，是在你的子表功能的版本是新的嘛。

Answer 2

這裏是一個功能：使用

(define (replace L new old) 
    (cond ;;((null? L) L) 
     ((list? L) 
      (map 
       (lambda (lst) (replace lst new old)) 
       L)) 
     (else 
       (if (equal? L old) 
        new 
        L)))) 

例子：

> (replace '(1 (1 2 3 4 (5 6 3) 3 4)) 7 3) 
'(1 (1 2 7 4 (5 6 7) 7 4)) 

> (replace '() 7 3) 
'() 

> (replace '(1 (1 2 3 4) 3 4) 7 3) 
'(1 (1 2 7 4) 7 4) 

或：

(define (replace L new old) 

    (if (list? L) 
     (map 
     (lambda (lst) (replace lst new old)) 
     L) 
     (if (equal? L old) 
     new 
     L))) 

例如：

（替換「（1（1 2 3 4（5 6 3）3 4））7 3） - >'（1（1 2 7 4（5 6 7） 7 4））