我认为在一个活页夹中绑定多个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))))