From b256fc334a6c8868a6159f32adb6dba01fefca86 Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Sun, 24 Feb 2019 20:33:55 +0100 Subject: Add CLOS to union-find --- union-find/union-find.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 union-find/union-find.lisp (limited to 'union-find/union-find.lisp') diff --git a/union-find/union-find.lisp b/union-find/union-find.lisp new file mode 100644 index 0000000..73f347f --- /dev/null +++ b/union-find/union-find.lisp @@ -0,0 +1,10 @@ +(in-package :com.lisp-algo.union-find) + +(defgeneric create-network (algo-instance n) + (:documentation "Create a network for the algo-instance")) + +(defgeneric union (algo-instance n1 n2) + (:documentation "Link two nodes in the quick-find network. union_ represent the union operation of the Quick Find Algorithm")) + +(defgeneric connected (algo-instance n1 n2) + (:documentation "Check is there is a path between n1 and n2")) -- cgit v1.2.3