使用相同的列表值扩展一个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))))