SICP Exercise 3.22

最新推荐文章于 2024-10-08 11:15:55 发布

原创最新推荐文章于 2024-10-08 11:15:55 发布 · 912 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#newline #delete

SICP 专栏收录该内容

37 篇文章

订阅专栏

本文详细介绍了使用局部状态实现队列的过程，并提供了相应的操作函数，包括创建队列、检查是否为空、获取队首元素、插入元素和移除队首元素。通过测试代码验证了这些操作的有效性。

Here is the implementation of QUEUE as a procedure with local state.

;;;QUEUE as a procedure with local state
(define (make-queue)
  (let ((front-ptr nil)
        (rear-ptr nil))
    (define (dispatch m)
      (cond ((eq? m 'empty-queue?) empty-queue?)
            ((eq? m 'front-queue) front-queue)
            ((eq? m 'insert-queue!) insert-queue!)
            ((eq? m 'delete-queue!) delete-queue!)
            ((eq? m 'print-queue) print-queue)
            (else (error "Undefined operation -- MAKE-QUEUE" m))))
    (define (empty-queue?)
      (null? front-ptr))
    (define (front-queue)
      (if (empty-queue?)
          (error "FRONT called with an empty queue")
          (car front-ptr)))
    (define (insert-queue! item)
      (let ((new-pair (cons item nil)))
        (if (empty-queue?)
            (begin (set! front-ptr new-pair)
                   (set! rear-ptr new-pair))
            (begin (set-cdr! rear-ptr new-pair)
                   (set! rear-ptr new-pair)))))
    (define (delete-queue!)
      (if (empty-queue?)
          (error "DELETE called with an empty queue")
          (set! front-ptr (cdr front-ptr))))   
    (define (print-queue)
      (display front-ptr))
    dispatch))

;;;QUEUE OPERATIONS
(define (empty-queue? queue) 
  ((queue 'empty-queue?)))
(define (front-queue queue)
  ((queue 'front-queue)))
(define (insert-queue! queue item)
  ((queue 'insert-queue!) item)
  queue)
(define (delete-queue! queue)
  ((queue 'delete-queue!))
  queue)
(define (print-queue queue)
  ((queue 'print-queue)))

The test code is as follows:

;;;TEST
(define q1 (make-queue))
(print-queue (insert-queue! q1 'a))
(newline)
(print-queue (insert-queue! q1 'b))
(newline)
(print-queue (delete-queue! q1))
(newline)
(print-queue (delete-queue! q1))
(newline)
(empty-queue? q1)

And the result of the test is:

(a)
(a b)
(b)
()
#t