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 --- packages.lisp | 33 ++++++++++++--------------------- 1 file changed, 12 insertions(+), 21 deletions(-) (limited to 'packages.lisp') diff --git a/packages.lisp b/packages.lisp index 62443df..c8dd0bc 100644 --- a/packages.lisp +++ b/packages.lisp @@ -5,31 +5,22 @@ (defpackage :com.lisp-algo.union-find (:use :common-lisp) (:nicknames :uf) - ;; Quick-Find - (:export :qf-create-network - :qf-union - :qf-connected) - ;; Quick-Union - (:export :qu-create-network - :qu-union - :qu-connected) - ;; Weighted-Quick-Union - (:export :wqu-create-network - :wqu-create-network - :wqu-union - :wqu-connected) - ;; Weighted-Quick-Union with Path Compression - (:export :wqupc-create-network - :wqupc-create-network - :wqupc-union - :wqupc-connected)) - - + (:shadow :union) + (:export :union + :connected + :quick-find ; Class + :quick-union ; Class + :weighted-quick-union ; Class + :weighted-quick-union-path-compression ; Class + :network ; Accessor + :network-size ; Accessor + :quick-union)) ;;; Unit tests (defpackage :com.lisp-algo.test (:use :common-lisp :lisp-unit :com.lisp-algo.union-find) - (:export :get-row)) + (:shadow :union) + (:export :get-row)) -- cgit v1.2.3