Árbol :: rb Perl Implementación del árbol rojo / negro, un tipo de árbol de búsqueda binario equilibrado
Descargar ahora

Árbol :: rb Clasificación y resumen

Árbol :: rb Etiquetas

búsqueda Módulo perl Árbol árbol de búsqueda equilibrado

Árbol :: rb Descripción

Perl Implementación del árbol rojo / negro, un tipo de árbol de búsqueda binario equilibrado Árbol :: RB es una implementación perl del árbol rojo / negro, también se proporciona un tipo de interfaz de búsqueda binaria balanceada. También se proporciona una interfaz de hash atada para permitir que se usen los hashes ordenados. El artículo de Wikipedia en http: //en.wikipedia .org / Wiki / Red-Black_Tree para más en árboles rojos / negros. HSYNOPSIS Usa Árbol :: RB; My $ TREE = TREE :: RB-> Nuevo; $ TREE-> PUT ('FRANCIA' => 'PARIS'); $ TREE-> PUT ('Inglaterra' => 'Londres'); $ árbol-> PUT ('Hungría' => 'Budapest'); $ árbol-> PUT ('Irlanda' => 'Dublín'); $ árbol-> PUT ('Egipto' => 'Cairo'); $ árbol-> PUT ('Alemania' => 'Berlín'); $ árbol-> PUT ('Alaska' => 'Anchorage'); # D'Oh! $ árbol-> Eliminar ('Alaska'); Imprimir $ árbol-> obtener ('Irlanda'); # 'Dublin' imprimir $ árbol-> min-> clave; # 'Egipto' Imprimir $ árbol-> Max-> Key; # 'Irlanda' Imprimir $ árbol-> Tamaño; # 6 # Imprimir artículos, ordenados por clave My $ it = $ Tree-> iter; Mientras (MIS $ NODE = $ IT-> Siguiente) {Sprintf "Key =% S, Valor =% s ", $ nodo-> clave, $ nodo-> val;} # elementos de impresión en orden inverso $ it it = $ árbol-> rev_iter; while (My $ node = $ it-> siguiente) {sprintf" key =% s,% s, valor =% s ", $ nodo-> clave, $ nodo-> val;} # interfaz hash ate mi pital, 'árbol :: rb'; # o haga esto para almacenar artículos en orden descendente atar mi pital, 'árbol :: rb', Sub {$ _ CMP $ _ }; $ Capital {'Francia'} = 'Paris'; $ Capital {'Inglaterra'} = 'Londres'; $ Capital {'Hungría'} = 'Budapest' ; $ Capital {'Irlanda'} = 'Dublin'; $ Capital {'Egipto'} = 'Cairo'; $ Capital {'Alemania'} = 'Berlín'; # Imprimir artículos en orden (mi (My ($ Key, $ val) = cada pital) {printf "clave = $ clave, valor = $ val ";} Requisitos: · Perl

Árbol :: rb Software relacionado