方案旋轉函數

Question

我必須編寫一個函數來旋轉列表n次。旋轉由將元素從前面放置到列表的末尾組成。我完全失去了。任何幫助將不勝感激！

Answer 1

基本實現將

(define (rotate lst n) 
    (cond 
    [(< n 0) 
    (error "n is negative")] 
    [(or (= n 0) (null? lst)) 
    lst] 
    [else 
    (rotate (append (cdr lst) (list (car lst))) 
      (- n 1))])) 

所以

(rotate '(a b c d e) 3) 
=> '(d e a b c) 

(rotate '(a b c) 5) 
=> '(c a b) 

作爲你應該改進測試(< n 0)和(null? lst)，因爲這些只需要做一次。

Answer 2

您需要使用（或者自己實施，如果這是針對某個課程，並且您的任務需要您手動實施所有內容）take，drop和append。

• (take lst n)返回lst第一n元件。例如，(take '(1 2 3 4 5) 3)返回(1 2 3)。
• (drop lst n)的lst第一n元素後返回的一切。例如，(drop '(1 2 3 4 5) 3)返回(4 5)。
• (append lst1 lst2)返回包含的lst1所有元素，其次是lst2所有元素的列表。例如，(append '(4 5) '(1 2 3))返回(4 5 1 2 3)。

一旦你手頭有這些功能，實現旋轉功能很簡單：

(define (rotate lst n) 
    (let ((n (modulo n (length lst)))) 
    (append (drop lst n) (take lst n))))