[scheme]求教一个Sheme操作队列的问题

win_hate

putq! 里的 end 每次都是新构造出来的，你模拟时，每插入一个新项，就要新建一个 end.

guile> (define new-end
  (lambda ()
    (cons 'ignored '())))

guile> (define end (new-end))
guile> (define myq (cons end end))
guile> myq
((ignored) ignored)
guile> (set-car! (cdr myq) 'a)
guile> myq
((a) a)
guile> (define end2 (new-end))
guile> (set-cdr! (cdr myq) end2)
guile> myq
((a ignored) a ignored)
guile> (set-cdr! myq end2)
guile> myq
((a ignored) ignored)
guile> (set-car! (cdr myq) 'b)
guile> myq
((a b) b)
guile> (define end2 (new-end))
guile> (set-cdr! (cdr myq) end2)
guile> myq
((a b ignored) b ignored)
guile> (set-cdr! myq end2)
guile> myq
((a b ignored) ignored)

win_hate

自己动手画个图可能会更清楚一些。