在Chicken方案中将列表转换为循环列表？

Question

在试图找到如何转换这样的列表时，我碰到了 Scheme streams and circular lists。但是，该答案要求在鸡场中没有提供Racket中的功能。任何人都可以指示我如何在Chicken方案中做到这一点？或者以一种方案变种中立的方式？

Answer 1

如果你能发生变异的名单，这里有一个标准的方法：

(define (make-circular lst) 
    ; helper for finding the last pair in a list 
    (define (last-pair lst) 
    (if (null? (cdr lst)) 
     lst 
     (last-pair (cdr lst)))) 
     ; special case: if the list is empty 
    (cond ((null? lst) '()) 
     (else 
     ; set the last pair to point to the head of the list 
     (set-cdr! (last-pair lst) lst) 
     lst))) 

注意的是，以上将修改输入列表中。除此之外，它按预期工作：

(make-circular '(1 2 3 4 5)) 
=> #0=(1 2 3 4 5 . #0#) 

(car (cdr (cdr (cdr (cdr (cdr (make-circular '(1 2 3 4 5)))))))) 
=> 1 

Answer 2

当您使用SRFIs这是很简单的：

（使用SRFI-1） （定义L“（1 2 3 4）） （申请圆形列表l）