cl-bplustree is an implementation of a in-memory B+ tree data structure in Common Lisp.
B+ trees main characteristics:
- All the data is in the leaves, internal nodes hold only keys used for traversal, pointers between the leaves are kept, so range-retrieval is easy and efficient.
- It is a generalization of a binary tree but instead of having only two pointers per node to other nodes it can have many more (this is called the order of the tree) because of this characteristic the tree has typically a large fanout and a small depth.
For more information about B+ trees, check Wikipedia.
Creates a new empty B+ tre of the given order and returns it.
The key parameter expects a function used to grab the key values (used for sorting) on whatever you are stuffing into the tree, the function will be called with one parameter (a record to be inserted into the tree for example) and it should return the value that will be used as a key. It defaults to
The comparer parameter expects a function used when comparing keys against each other in the tree operations. This function has to take two parameters (keys of records) and return a value depending on the following conditions:
(< a b) → -1
(= a b) → 0
(> a b) → 1
The meaning of this of course is given by your particular keys and your particular applications, for string keys for example
string>, etc., could be used.
This parameter defaults to a function that implements the explained logic but for numerical keys. If your keys are numeric, you don’t need to supply a comparison function.
(defparameter *my-tree* (bplustree-new 4 :key (lambda (r) (parse-integer r))))
Inserts the given record into the given tree, if the given key already exists in the tree, the value is updated. Returns the tree but is not needed to capture it and assign it,this call is not destructive on the tree itself, althought its internal elements are changed by it.
(bplustree-insert "100" *my-tree*)
Inserts all the records given into the tree. Returns the tree.
(bplustree-insert-many *my-tree* "5" "10" "-1" "1337" "212" "32" "311" "52")
Searches the value stored in the given key in the given tree.
(bplustree-search 311 *my-tree*) -> "311"
Searches the tree for all the records that exists between the given from and to keys and returns them in a list.
(bplustree-search-range 0 1000 *my-tree*) -> ("5" "10" "32" "52" "100" "212" "311")
Deletes the record stored in the given key in the tree. Returns the tree but is not needed to capture it and assign it, this call is not destructive on the tree itself, althought its internal elements are changed by it.
(bplustree-delete 32 *my-tree*) (bplustree-search-range 0 1000 *my-tree*) ("5" "10" "52" "100" "212" "311")
I hope this code is useful to you in any sense, either for learning, reading or maybe actual practical use, I will be very glad if you can even modify it to suit your needs. If you have suggestions please send them my way. Be sure to read COPYING file as well.