better-tree-depth.clj

better-tree-depth.clj

{:find  [(pull hollywood [{:tmdb/type {:person [:tmdb.person/name]
                                       :movie [:tmdb.movie/title]}}])]
 :where [[kevin :tmdb.person/name "Kevin Bacon"]
         (related-to kevin 2 hollywood depth)]
 :rules [[(related-to [e d] e2 d*)
          (rrelated-to e d e2 rd*)
          [(- d rd*) d*]]
         [(rrelated-to [e d] e2 d*)
          [(> d 0)]
          [(dec d) d*]
          [credit :tmdb.person/id e]
          [credit :tmdb.movie/id e2]]
         [(rrelated-to [e d] e2 d**)
          [(> d 0)]
          [(dec d) d*]
          [credit :tmdb.person/id e]
          [credit :tmdb.movie/id intermediate]
          (rrelated-to intermediate d* e2 d**)]]}