队列的表示

(define (make-queue) (cons '() '())) (define (front-ptr queue) (car queue)) (define (rear-ptr queue) (cdr queue)) (define (empty-queue? queue) (null? (front-ptr queue))) (define (set-front-ptr! queue

>>阅读原文<<