Balancering af binært træ

Det er mere end 15 år siden jeg sidst har kodet sådan noget (og dengang
var det i Fortran).

Hurtigt skud fra hoften:

sort array
call doit(array, 0, elements-1, empty tree)

og doit indeholder:

n = (last - first) / 2;
add array[n] til tree
if ((n-1) - first + 1) > 0 call doit(array, first, n-1, tree)
if (last - (n+1) + 1) > 0 call doit(array, n+1, last, tree)

Supplerende note:
"Sort array" vil ske automatisk hvis det er et binært søgetræ og et inorder gennemløb bruges.

OK ?

Tjaa, har ikke nået at prøve det af, da jeg indtil videre har løst problemet ved at udføre splay-operationer ved add/remove. Generelt bryder jeg mig heller ikke om rekursive metoder; er træet stort nok, risikerer man stack-overflows, men ok, det ser rigtig nok ud.