使用相同的列表值擴展一個Scheme列表

Question

我需要創建一個Scheme函數來接收一個列表和一個所需的新大小，然後函數通過使用相同的列表值來擴展列表大小。例如：

'(1 2 3) to size 6 will turn to '(1 2 3 1 2 3) 
'(1 2) to size 5 will turn to '(1 2 1 2 1) 
'(4 5 6 1) to size 7 will turn to '(4 5 6 1 4 5 6) 

新長度函數參數可以等於或大於當前列表大小。

Answer 1

可以使用SRFI 1功能circular-list（沿着球拍的內置take）要做到這一點：

(require srfi/1) 
(define (take-circular lst n) 
    (take (apply circular-list lst) n)) 

如果你想避免使用SRFI 1，另一種方法是這樣的：

(define (take-circular lst n) 
    (let ((size (length lst))) 
    (if (> n size) 
     (append lst (take-circular lst (- n size))) 
     (take lst n))))