clojure - DataScript / datahike 规则不返回任何内容

Question

我尝试在datahike的数据库的多个字段中搜索字符串。到目前为止没有成功。到目前为止，这是我最大的努力方法：

(ns my.ns
  (:require [clojure.string :as st]
            [datahike.api :as dh]))

(def card-db [[1 :card/name "CardA"]
              [1 :card/text "Text of CardA mentioning CardB"]
              [2 :card/name "CardB"]
              [2 :card/text "A mystery"]])

(def rules '[
             [
              (matches-name ?ent ?fn ?str)
              [?ent :card/name ?name]
              (?fn ?name ?str)]
             [(matches-text ?ent ?fn ?str)
              [?ent :card/text ?text]
              (?fn ?text ?str)
              ]
             ])

(defn my-search [db search-strs]
  (dh/q '[:find ?e
          :in $ % ?fn [?str ...]
          :where
          [?e :card/name ?name]

          #_[(?fn ?name ?str)] ;; this finds CardB

          (or
           (matches-name ?e ?fn ?str)
           (matches-text ?e ?fn ?str)
           ) ;; this finds nothing
          ]
        db rules st/includes? search-strs))
#_(count (my-search card-db ["CardB"]))

预期结果：2

实际结果：0

就我而言，解决方案不需要使用规则。如果在多个字段中的至少一个中找到一个字符串，它应该只返回一个匹配项。

我在用着[io.replikativ/datahike "0.1.1"]

标签： clojureclojurescriptdatascript

Answer 1

DataScript 还不支持or。我认为 Datahike 两者都没有。但是您可以使用规则来模拟它。尝试：

(def rules '[[(matches ?ent ?fn ?str)
              [?ent :card/name ?name]
              (?fn ?name ?str)]
             [(matches ?ent ?fn ?str)
              [?ent :card/text ?text]
              (?fn ?text ?str)]])

(defn my-search [db search-strs]
  (dh/q '[:find ?e
          :in $ % ?fn [?str ...]
          :where [?e :card/name ?name]
                 (matches ?e ?fn ?str)]
        db rules st/includes? search-strs))