使用 clojure 的 core.logic / minikanren 查找相似的集合

Question

这是我关于 Stack Overflow 的第一个问题。

我是逻辑编程的新手，正在尝试评估它是否可以用来解决我正在研究的一些匹配问题。

问题：

假设我们有一个看起来像这样的集合 A。

A = {1, 2, 3, 4}

然后我们还有一些看起来像这样的其他集合。

B = {1, 2}
C = {3, 5, “banana"} 
D = {2, 3, 4}

我要解决的问题是，

“找出与我们知道的其他集合相比，与集合 A 共享最多成员的集合。”

这种情况下的答案应该是集合 D，因为它与集合 A 共享三个成员。与其他仅与 A 共享两个和一个成员的集合相比。

问题一：

逻辑编程能解决这类问题吗？

问题2：

如果可以，你会如何在例如 Clojure 的 core.logic 中做到这一点？

Answer 1

棋士

以下显示使用clojure.set 获得最佳拟合结果：

(ns
  sample.sandbox
  (:require [clojure.set :as set])
  )

(def A #{ 1, 2, 3, 4})
(def B #{1, 2})
(def C #{3, 5, "banana"})
(def D #{2, 3, 4})

(defn best-fit-set
  [control & sets]
  (apply max-key count (map #(set/intersection control %) sets )))

(best-fit-set A B C D) => #{4 3 2}