2013-12-30 14:32:36 +01:00
|
|
|
========
|
|
|
|
defmulti
|
|
|
|
========
|
|
|
|
|
2016-11-29 15:21:31 +01:00
|
|
|
defn
|
|
|
|
----
|
|
|
|
.. versionadded:: 0.10.0
|
|
|
|
|
|
|
|
``defn`` lets you arity-overload a function by the given number of
|
|
|
|
args and/or kwargs. This version of ``defn`` works with regular syntax and
|
|
|
|
with the arity overloaded one. Inspired by Clojures take on ``defn``.
|
|
|
|
|
|
|
|
.. code-block:: clj
|
|
|
|
|
|
|
|
=> (require [hy.contrib.multi [defn]])
|
|
|
|
=> (defn fun
|
|
|
|
... ([a] "a")
|
|
|
|
... ([a b] "a b")
|
|
|
|
... ([a b c] "a b c"))
|
|
|
|
|
|
|
|
=> (fun 1)
|
|
|
|
"a"
|
|
|
|
=> (fun 1 2)
|
|
|
|
"a b"
|
|
|
|
=> (fun 1 2 3)
|
|
|
|
"a b c"
|
|
|
|
|
2018-05-16 05:29:07 +02:00
|
|
|
=> (defn add [a b]
|
2016-11-29 15:21:31 +01:00
|
|
|
... (+ a b))
|
|
|
|
=> (add 1 2)
|
|
|
|
3
|
|
|
|
|
|
|
|
|
|
|
|
defmulti
|
|
|
|
--------
|
|
|
|
|
2016-11-29 06:22:38 +01:00
|
|
|
.. versionadded:: 0.12.0
|
2013-12-30 14:32:36 +01:00
|
|
|
|
2016-04-16 12:43:13 +02:00
|
|
|
``defmulti``, ``defmethod`` and ``default-method`` lets you define
|
|
|
|
multimethods where a dispatching function is used to select between different
|
|
|
|
implementations of the function. Inspired by Clojure's multimethod and based
|
|
|
|
on the code by `Adam Bard`_.
|
2013-12-30 14:32:36 +01:00
|
|
|
|
|
|
|
.. code-block:: clj
|
|
|
|
|
2016-11-03 13:32:23 +01:00
|
|
|
=> (require [hy.contrib.multi [defmulti defmethod default-method]])
|
2016-04-16 12:43:13 +02:00
|
|
|
=> (defmulti area [shape]
|
|
|
|
... "calculate area of a shape"
|
|
|
|
... (:type shape))
|
2018-05-16 05:29:07 +02:00
|
|
|
|
2016-04-16 12:43:13 +02:00
|
|
|
=> (defmethod area "square" [square]
|
|
|
|
... (* (:width square)
|
|
|
|
... (:height square)))
|
2018-05-16 05:29:07 +02:00
|
|
|
|
2016-04-16 12:43:13 +02:00
|
|
|
=> (defmethod area "circle" [circle]
|
2018-05-16 05:29:07 +02:00
|
|
|
... (* (** (:radius circle) 2)
|
2016-04-16 12:43:13 +02:00
|
|
|
... 3.14))
|
|
|
|
|
|
|
|
=> (default-method area [shape]
|
|
|
|
... 0)
|
|
|
|
|
|
|
|
=> (area {:type "circle" :radius 0.5})
|
|
|
|
0.785
|
|
|
|
|
|
|
|
=> (area {:type "square" :width 2 :height 2})
|
|
|
|
4
|
|
|
|
|
|
|
|
=> (area {:type "non-euclid rhomboid"})
|
|
|
|
0
|
|
|
|
|
|
|
|
``defmulti`` is used to define the initial multimethod with name, signature
|
|
|
|
and code that selects between different implementations. In the example,
|
|
|
|
multimethod expects a single input that is type of dictionary and contains
|
|
|
|
at least key :type. The value that corresponds to this key is returned and
|
|
|
|
is used to selected between different implementations.
|
|
|
|
|
|
|
|
``defmethod`` defines a possible implementation for multimethod. It works
|
2018-05-16 05:29:07 +02:00
|
|
|
otherwise in the same way as ``defn``, but has an extra parameters
|
2016-04-16 12:43:13 +02:00
|
|
|
for specifying multimethod and which calls are routed to this specific
|
|
|
|
implementation. In the example, shapes with "square" as :type are routed to
|
|
|
|
first function and shapes with "circle" as :type are routed to second
|
|
|
|
function.
|
|
|
|
|
|
|
|
``default-method`` specifies default implementation for multimethod that is
|
|
|
|
called when no other implementation matches.
|
|
|
|
|
|
|
|
Interfaces of multimethod and different implementation don't have to be
|
|
|
|
exactly identical, as long as they're compatible enough. In practice this
|
|
|
|
means that multimethod should accept the broadest range of parameters and
|
|
|
|
different implementations can narrow them down.
|
|
|
|
|
|
|
|
.. code-block:: clj
|
|
|
|
|
2016-11-03 13:06:13 +01:00
|
|
|
=> (require [hy.contrib.multi [defmulti defmethod]])
|
2016-04-16 12:43:13 +02:00
|
|
|
=> (defmulti fun [&rest args]
|
|
|
|
... (len args))
|
|
|
|
|
|
|
|
=> (defmethod fun 1 [a]
|
|
|
|
... a)
|
|
|
|
|
|
|
|
=> (defmethod fun 2 [a b]
|
|
|
|
... (+ a b))
|
|
|
|
|
2013-12-30 14:32:36 +01:00
|
|
|
=> (fun 1)
|
2016-04-16 12:43:13 +02:00
|
|
|
1
|
|
|
|
|
2014-09-08 16:57:52 +02:00
|
|
|
=> (fun 1 2)
|
2016-04-16 12:43:13 +02:00
|
|
|
3
|
2013-12-30 14:32:36 +01:00
|
|
|
|
2016-04-16 12:43:13 +02:00
|
|
|
.. _Adam Bard: https://adambard.com/blog/implementing-multimethods-in-python/
|