8.1 没有多重方法的生活
假定Clojure没有提供print和println方法,打印任何对象,println比print方法多输出一个换行符。我们自己构建一个通用的打印机制。
为了输出字符串,空,向量我们需要如下编写代码:
(use '[clojure.contrib.str-utils:only(str-join)])
(defn my-print-vector [ob]
(.write *out* "[")
(.write *out* (str-join""ob))
(.write *out* "]"))
(defnmy-print [ob]
(cond
(vector? ob) (my-print-vector ob)
(nil? ob) (.write *out* "nil")
(string? ob) (.write *out* ob)))
(defn my-println [ob] (my-print ob) (.write *out* "\n"))
如果需要在添加一种类型,则需要添加一个cond分支和一种实现。
但我们真正想要的方式是添加一种新特性时,只需要在一个地方添加新的代码而不必修改已有的代码。多重方法可以帮助我们实现。
假定Clojure没有提供print和println方法,打印任何对象,println比print方法多输出一个换行符。我们自己构建一个通用的打印机制。
为了输出字符串,空,向量我们需要如下编写代码:
(use '[clojure.contrib.str-utils:only(str-join)])
(defn my-print-vector [ob]
(.write *out* "[")
(.write *out* (str-join""ob))
(.write *out* "]"))
(defnmy-print [ob]
(cond
(vector? ob) (my-print-vector ob)
(nil? ob) (.write *out* "nil")
(string? ob) (.write *out* ob)))
(defn my-println [ob] (my-print ob) (.write *out* "\n"))
如果需要在添加一种类型,则需要添加一个cond分支和一种实现。
但我们真正想要的方式是添加一种新特性时,只需要在一个地方添加新的代码而不必修改已有的代码。多重方法可以帮助我们实现。