- 论坛徽章:
- 0
|
本帖最后由 白云深 于 2010-03-21 22:54 编辑
下面这段代码是“The Scheme Programming Language"上面的,是描述如何操作队列的:- (define make-queue
- (lambda ()
- (let ((end (cons 'ignored '())))
- (cons end end))))
- (define putq!
- (lambda (q v)
- (let ((end (cons 'ignored '())))
- (set-car! (cdr q) v)
- (set-cdr! (cdr q) end)
- (set-cdr! q end))))
- (define getq
- (lambda (q)
- (car (car q))))
- (define delq!
- (lambda (q)
- (set-car! q (cdr (car q)))))
复制代码 我用的是PLT Scheme,下面是测试代码及输出
> (define myq (make-queue))(putq! myq 'a)
> (putq! myq 'b)
> myq
((a b ignored) ignored)
> (delq! myq)
> myq
((b ignored) ignored)
> (delq! myq)
> myq
((ignored) ignored)
>
这段代码基本上看懂了,但有些细节理解的还不是很透彻,尤其是putq!,所以我在plt的交互环境下,试着按照putq!的定义,一步一步执行,并查看myq的内容,但得到的结果却是这样:
> (define end (cons 'ignored '()))
> (define myq (cons end end))
> myq
((ignored) ignored)
> (set-car! (cdr myq) 'a)
> myq
((a) a)
> (set-cdr! (cdr myq) end)
> myq
(#0=(a . #0#) . #0#)
> (set-cdr! myq end)
> myq
(#0=(a . #0#) . #0#)
> (set-car! (cdr myq) 'b)
> myq
(#0=(b . #0#) . #0#)
> (set-cdr! (cdr myq) end)
> myq
(#0=(b . #0#) . #0#)
> (set-cdr! myq end)
> myq
(#0=(b . #0#) . #0#)
>
上面的操作步骤,原想是要在myq中做两次putq操作,让a, b先后进队列,然后得到的输出却完全不是我原先想象的那样。上面的操作,我在MIT/GNU Scheme上也做了一下,得到的结果又是另外一种样子,这里就不贴了。不知道错在什么地方,或许我这种思路就有问题。初学Scheme,请各位前辈指点一二,先行谢过。 |
|