在下面的代码中,有很多冗余代码,我在左侧对所有三个事实执行相同的操作。在右侧,我也有相同的 let 块。我该如何处理这种冗余?
(facts "Data is grouped by the given keys."
(fact "The grouping keys are a subset of the :month/:day keys in data"
(group-data data :day) => (fn [d]
(let [months (map :day data)
grouped-by-keys (keys d)]
(subset? (set grouped-by-keys) (set months)))))
(fact "All the grouping keys are distinct"
(group-data data :day) => (fn [d]
(let [months (map :day data)
grouped-by-keys (keys d)]
(apply distinct? grouped-by-keys))))
(fact "All the distinct keys from data are present in grouping keys"
(group-data data :day) => (fn [d]
(let [months (map :day data)
grouped-by-keys (keys d)]
(empty? (difference (set months) (set grouped-by-keys)))))))