packages.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

;;;; This file contains lisp-algos packages definitions

;;; Union-Find packages

(defpackage :com.lisp-algo.union-find
  (:use :common-lisp)
  (:nicknames :uf)
  (: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)
  (:shadow :union)
  (:export :get-row))