|
（在列表结构上实现这种自同构的Scheme函数：）
（定义！s） （条件（（不是（配对？s） ））（不是（配对？（cdr s））（交换！s） ）（其他（汽车！（汽车））（汽车！（cdr s））（机器人！s） ）s）
（定义（机器人！s） （let（（ex car（s car）））（设置汽车！s（cddr s））（设置cdr！（cdr s）ex car）（交换！（cdr s））（交换！s） s）段）
（定义（交换！s） （let（（ex car（s car）））（设置汽车！s（cdr s））（设置cdr！s（汽车除外）
| 