lisp - 如何仅使用 cons 对实现嵌套列表？

Question

我正在制作一个纯 Lisp 解释器，并尝试编写一个阅读器将列表转换为 cons 对。

从我读过的列表来看，内部的缺点是这样的:

( 1 2 3 ) = (1.(2.(3.NIL)))

但我不知道如何使用 cons 对实现如下所示的嵌套列表

( (1 2) (3 4 ) (5 6 ) )

这怎么看起来像是未缩写的？

Answer 1

CL-USER 40 > (sdraw::sdraw '( (1 2) (3 4 ) (5 6 ) ))

[*|*]------------------>[*|*]------------------>[*|*]--->NIL
 |                       |                       |
 v                       v                       v
[*|*]--->[*|*]--->NIL   [*|*]--->[*|*]--->NIL   [*|*]--->[*|*]--->NIL
 |        |              |        |              |        |
 v        v              v        v              v        v
 1        2              3        4              5        6