我认为在单个存储器中绑定多个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)))