我有一组前缀/值对,并希望在此连接中找到与当前目标字符串开头的前缀相关联的任何值。 (在多个前缀匹配的情况下定义行为并不重要,因为我的用例的性质应该永远不会发生。)
一个天真的(工作)实现如下:
(defn prefix-match [target-str pairs]
(some
(fn [[k v]]
(if (.startsWith target-str k)
v
false))
pairs))
这样:
user=> (prefix-match "foobar" {"meh" :qux, "foo" :baz})
:baz
这可以按预期工作,但是O(n)具有pairs
序列的长度。 (快速插入pairs
也是可取的,但不如快速查找那么重要。)
首先想到的是使用有效的随机访问来对已排序的集合进行二等分,但我不确定Clojure中哪些数据结构最适合该任务。建议?
答案 0 :(得分:19)
特里怎么样?
(defn build-trie [seed & kvs]
(reduce
(fn [trie [k v]]
(assoc-in trie (concat k [:val]) v))
seed
(partition 2 kvs)))
(defn prefix-match [target trie]
(when (seq target)
(when-let [node (trie (first target))]
(or (:val node)
(recur (rest target) node)))))
用法:
user> (def trie (build-trie {} "foo" :baz "meh" :qux))
#'user/trie
user> trie
{\m {\e {\h {:val :qux}}}, \f {\o {\o {:val :baz}}}}
user> (prefix-match "foobar" trie)
:baz
user> (prefix-match "foo" trie)
:baz
user> (prefix-match "f" trie)
nil
user> (prefix-match "abcd" trie)
nil
答案 1 :(得分:4)
有效,简洁的方法是利用rsubseq
,它适用于任何实现clojure.lang.Sorted
的类型 - 包括sorted-map
。
(defn prefix-match [sorted-map target]
(let [[closest-match value] (first (rsubseq sorted-map <= target))]
(if closest-match
(if (.startsWith target closest-match)
value
nil)
nil)))
这通过了我的套件中的相关测试:
(deftest prefix-match-success
(testing "prefix-match returns a successful match"
(is (prefix-match (sorted-map "foo" :one "bar" :two) "foobar") :one)
(is (prefix-match (sorted-map "foo" :one "bar" :two) "foo") :one)))
(deftest prefix-match-fail
(testing "prefix-match returns nil on no match"
(is (= nil (prefix-match (sorted-map "foo" :one, "bar" :two) "bazqux")))
(is (= nil (prefix-match (sorted-map "foo" :one, "bar" :two) "zzz")))
(is (= nil (prefix-match (sorted-map "foo" :one, "bar" :two) "aaa")))))
答案 2 :(得分:2)
将前缀列表转换为正则表达式似乎最简单,并将它们提供给正则表达式匹配器,该匹配器针对此类任务进行了优化。像
这样的东西(java.util.regex.Pattern/compile (str "^"
"(?:"
(clojure.string/join "|"
(map #(java.util.regex.Pattern/quote %)
prefixes))
")"))
应该为你提供一个适合测试字符串的正则表达式(但我根本没有测试它,所以也许我的方法名称有些错误或者其他东西)。
答案 3 :(得分:2)
以下解决方案找到最长的匹配前缀,并且当地图很大且字符串相对较短时,效果非常好。它试图匹配,例如&#34; foobar&#34;,&#34; fooba&#34;,&#34; foob&#34;,&#34; foo&#34;,&#34; fo&#34;,&#34; f& #34;按顺序并返回第一场比赛。
(defn prefix-match
[s m]
(->> (for [end (range (count s) 0 -1)] (.subSequence s 0 end)) ; "foo", "fo", "f"
(map m) ; match "foo", match "fo", ...
(remove nil?) ; ignore unmatched
(first))) ; Take first and longest match