想在編程中交換元素

Question

我在語言中亂搞，需要一些幫助。我想創建一個交換函數，第一個交換與第二個交換。所以如果（交換'（a b c d e g）） 應該返回（b a d c e g）。我不想存儲任何值。在方案中有沒有功能或方法？我不知道我是否會這樣定義

（DEFINE列表1（LIST 'A' B 'C' d「E））的列表

然後不知道該怎麼辦

Answer 1

訣竅是一次處理兩個元素，交換它們並推進遞歸中的兩個元素。這就是我的意思是：

(define (swap lst) 
     ; if the list is empty or has a single element 
    (cond ((or (null? lst) (null? (cdr lst))) 
     ; then return that list 
     lst) 
     ; otherwise build a new list 
     (else 
     ; by first adding the second element 
     (cons (cadr lst) 
     ; and then adding the first element 
       (cons (car lst) 
     ; finally, advance the recursion over two elements 
        (swap (cddr lst))))))) 

我相信，在討論的採樣輸出是錯誤的，哪裏來自f？比如我所期待的結果將是：

(swap '(a b c d e g)) 
=> '(b a d c g e) 

(swap '(a b c d e)) 
=> '(b a d c e) 

(swap '(a)) 
=> '(a) 

(swap '()) 
=> '()