같은 목록 값을 사용하여 체계 목록을 확장하십시오.

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

당신은이 작업을 수행하기 위해 (라켓의 내장 take 함께) SRFI 1 기능 circular-list를 사용할 수 있습니다

(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))))