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

时间:2018-05-29 11:02:51

标签: clojure clojurescript datascript

我尝试在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"]

1 个答案:

答案 0 :(得分:0)

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))