我认为能够将多个noms在同一个活页夹中绑定可能会很有用,无论是否具有显著的顺序。
我目前考虑到的几个用例
非柯里化的语言中的Lambdas。这里的顺序很重要。
(== (list 'fn (ties [x y] (list '+ x y))))
(list 'fn (ties [z w] (list '+ z w))))
我的原始用例,逻辑公式中的自由/量词变量。顺序不重要(注意第二个主体的noms已交换)。
(== (list '∀ (ties #{x y} (list '= (list '+ x y) (list '+ y x)))))
(list '∀ (ties #{z w} (list '= (list '+ w z) (list '+ z w))))
我在这里有一个草稿实现:
https://github.com/tomjack/core.logic/compare/ties
此实现的潜在问题
- 是否可以重新扩展IWalkTerm到IPersistentSet?
- Tie和Ties是否应提供统一接口?(例如(tie? (ties #{x} x)))