Set consolidation: Difference between revisions
→{{header|TXR}}: Slicker mkset function.
(→{{header|TXR}}: Slicker mkset function.) |
|||
Line 1,412:
<lang txr>@(do
(defun mkset (p x) (
(defun fnd (p x) (if (eq [p x] x) x (fnd p [p x])))
| |||