From 0038d9bd0318c1025b8edd005f3aaa609a308a57 Mon Sep 17 00:00:00 2001 From: Loic GUEGAN Date: Mon, 28 Jan 2019 18:21:58 +0100 Subject: Add algo --- src/quick-union.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/quick-union.lisp') diff --git a/src/quick-union.lisp b/src/quick-union.lisp index 9b4e9d8..bf2ff3d 100644 --- a/src/quick-union.lisp +++ b/src/quick-union.lisp @@ -37,6 +37,6 @@ the find operation on the Quick Union algorithm" `(= (find-root ,network ,n1) (find-root ,network ,n2))) (defmacro nunion_ (network n1 n2) - "A consed version of union_" + "A destructive version of union_" `(setf ,network (union_ ,network ,n1 ,n2))) -- cgit v1.2.3