16、Scheme编程：输出、解释器与抽象对象的深度探索

Scheme编程：输出、解释器与抽象对象的深度探索

1. 输出相关操作

在Scheme编程中，输出操作是常见需求。最初，数字打印借助 number->string ，但对于精确整数和有理数，可直接打印以提高效率。

1.1 输出函数的基础设定

write 和 display 函数分别以不同方式输出内容， write 调用 wr 时 d? 设为 #f ， display 调用 wr 时 d? 设为 #t 。代码如下：

(set! write
  (lambda (x . rest)
    (if (null? rest)
        (wr x #f (current-output-port))
        (wr x #f (car rest)))))
(set! display
  (lambda (x . rest)
    (if (null? rest)
        (wr x #t (current-output-port))
        (wr x #t (car rest)))))

1.2 优化数字输出

为了优化输出，可修改代码直接打印精确整数和有理数，而对不精确和复数继续使