aboutsummaryrefslogtreecommitdiff
path: root/packages.lisp
diff options
context:
space:
mode:
authorLoic Guegan <manzerberdes@gmx.com>2019-02-24 20:33:55 +0100
committerLoic Guegan <manzerberdes@gmx.com>2019-02-24 20:33:55 +0100
commitb256fc334a6c8868a6159f32adb6dba01fefca86 (patch)
treef98e6dcf0957b3f68502d7f7142e8c218596868d /packages.lisp
parent5725987c8dfd55d4ee0282f0a37779e06052f3c6 (diff)
Add CLOS to union-findHEADmaster
Diffstat (limited to 'packages.lisp')
-rw-r--r--packages.lisp33
1 files changed, 12 insertions, 21 deletions
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))