2009-06-08から1日間の記事一覧
3.21 ;;;exercise3.21 (define (print-queue queue) (map append (front-ptr queue))) 3.22 ;;exercise3.22 (define (make-queue) (let ((front-ptr '()) (rear-ptr '())) (define (set-front-ptr! item) (set! front-ptr item)) (define (set-reat-ptr! ite…