Changeset 136

Timestamp:

Dec 19, 2003, 1:47:43 PM (21 years ago)

Author:

Gary Byers

Message:

map-splay-tree

File:

• trunk/ccl/library/splay-tree.lisp (modified) (1 diff)

trunk/ccl/library/splay-tree.lisp

@@ -174 +174 @@
   (check-type less function)
   (%make-splay-tree :equal equal :less less))
+
+;;; Do an inorder traversal of the splay tree, applying function F
+;;; to the value of each node.
+
+(defun map-splay-tree (tree f)
+  (labels ((map-tree-node (node)
+             (when node
+               (map-tree-node (tree-node-left node))
+               (funcall f (tree-node-value node))
+               (map-tree-node (tree-node-right node)))))
+    (map-tree-node (splay-tree-root tree))))
+
+