SICP問題3.21
queueの表現(教科書で定義)
(define (front-ptr queue) (car queue)) (define (rear-ptr queue) (cdr queue)) (define (set-front-ptr! queue item) (set-car! queue item)) (define (set-rear-ptr! queue item) (set-cdr! queue item)) (define (empty-queue? queue) (null? (front-ptr queue))) (define (make-queue) (cons '() '())) (define (front-queue queue) (if (empty-queue? queue) (error "FRONT called with an empty queue" queue) (car (front-ptr queue)))) (define (insert-queue! queue item) (let ((new-pair (cons item '()))) (cond ((empty-queue? queue) (set-front-ptr! queue new-pair) (set-rear-ptr! queue new-pair) queue) (else (set-cdr! (rear-ptr queue) new-pair) (set-rear-ptr! queue new-pair) queue)))) (define (delete-queue! queue) (cond ((empty-queue? queue) (error "DELETE! called with an empty queue" queue)) (else (set-front-ptr! queue (cdr (front-ptr queue))) queue)))
解釈系の応答ではキューの実体であるfront-ptrだけでなく, キューの末尾を指すrear-ptrも含めて対でが印字されているため、Ben Bitdidddleのような印字結果となる。
これを解消するキューの中の項目の並びを印字する手続きprint-queue手続き
(define (print-queue queue) (front-ptr queue))
テスト
(define q1 (make-queue)) ; q1 q1 ; (()) (print-queue q1) ; () (insert-queue! q1 'a) ; (#0=(a) . #0#) (display q1) ; ((a) a)#<undef> (print-queue q1) ; (a) (insert-queue! q1 'b) ; ((a . #0=(b)) . #0#) (display q1) ; ((a b) b)#<undef> (print-queue q1) ; (a b) (delete-queue! q1) ; (#0=(b) . #0#) (display q1) ; ((b) b)#<undef> (front-ptr q1) ; (b) (delete-queue! q1) ; (() b) (display q1) ; (() b)#<undef> (front-ptr q1) ; ()
OK