clojure - 如何在 Clojure 中创建可调用对象？

Question

如何在 Clojure 中创建可调用类型或对象？

例如，我如何定义一个记录，该记录Foo采用单个值:bar，可以调用该值来打印该值？

user=> (def foo (Foo. "Hello world"))
user=> (foo)
Hello World
user=> (:bar foo)
"Hello World"

Answer 1

(defrecord Foo [bar]
  clojure.lang.IFn
  (invoke [_] (println bar)))

((Foo. "Hello, world!"))

;; => Hello, world!

(:bar (Foo. "Hello, world!"))

;; => "Hello, world!"

...这样做是否是一个好主意是另一个问题。

---

实施 IFN 的记录

(defrecord Foo [bar]
  clojure.lang.IFn
  (invoke [_] (println bar))
  (applyTo [this args] (clojure.lang.AFn/applyToHelper this args)))