Exercise-3-21

Упражнение 3.21.

Определите

процедуру print-queue, которая берет на входе очередь и выводит на печать последовательность

ее элементов.

Она могла бы выглядеть как-то так

(define (print-queue queue)
  (define (helper q)
    (if (not (null? q))
        (begin
          (display " " )
          (display (car q))
          (helper (cdr q)))))
    (display "(")
    (helper (front-ptr q))
    (display ")")
    (newline))