files/practicum/AVLTreeTest.icl


1
2
3
4
5
6
7
8
9

module AVLTreeTest

import StdEnv, StdAVLTree, Subs

//	Test alle mogelijkheden:
Start			= filter (not o isAVLTree) (map (foldr deleteAVLTree tree) (subs elementen))
where
	elementen	= [3,2,1,0,1,2,3,2,1,0,1,2,3]
	tree		= foldr insertAVLTree mkAVLLeaf elementen