;; simple example a toy poodle is a poodle is a dog is an animal
user=> (derive ::dog ::animal)
nil
user=> (derive ::poodle ::dog)
nil
user=> (derive ::toy_poodle ::poodle)
nil
user=> (descendants ::animal)
#{:user/toy_poodle :user/poodle :user/dog}
user=>
Source
clojure/core.clj:4450
top
(defn descendants
"Returns the immediate and indirect children of tag, through a
relationship established via derive. h must be a hierarchy obtained
from make-hierarchy, if not supplied defaults to the global
hierarchy. Note: does not work on Java type inheritance
relationships."
{:added "1.0"}
([tag] (descendants global-hierarchy tag))
([h tag] (if (class? tag)
(throw (java.lang.UnsupportedOperationException. "Can't get descendants of classes"))
(not-empty (get (:descendants h) tag)))))
Comments top
No comments for descendants. Log in to add a comment.