Árvore :: RB.

Implementação Perl da árvore vermelha / preta, um tipo de árvore de pesquisa binária balanceada
Baixe Agora

Árvore :: RB. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Arun Prasaad
  • Site do editor:
  • http://search.cpan.org/~arunbear/

Árvore :: RB. Tag


Árvore :: RB. Descrição

Implementação Perl da árvore vermelha / preta, um tipo de árvore de pesquisa binária balanceada Árvore :: RB é uma implementação de perl da árvore vermelha / preta, um tipo de árvore de busca binária balanceada. Uma interface de hash amarrada também é fornecida para permitir que hashes encomendados sejam usados. Veja o artigo da Wikipedia em http: //en.wikipedia .org / wiki / red-black_tree para mais sobre árvores vermelhas / pretas.Synopsis Use árvore :: RB; Minha $ Tree = Tree :: RB-> NOVA; $ tree-> colocar ('França' => 'Paris'); $ tree-> colocar ('Inglaterra' => 'London'); $ tree-> colocar ('Hungria' => 'Budapeste'); $ tree-> Coloque ('Irlanda' => 'Dublin'); $ tree-> colocar ('Egito' => 'cairo'); $ tree-> colocar ('Alemanha' => 'Berlim'); $ tree-> put ('Alaska' => 'Anchorage'); # D'oh! $ tree-> delete ('alaska'); Imprimir $ tree-> get ('Irlanda'); # 'Dublin' imprimir $ tree-> min-> chave; # 'Egito' Imprimir $ tree-> max-> chave; # 'Irlanda' imprimir $ tree-> tamanho; # 6 # Itens de impressão, encomendados pela tecla $ IT = $ tree-> iter; while (meu nó $ nó = $ it-> next) {sprintf "key =% s, valor =% s ", $ node-> chave, $ node-> Val;} # Itens de impressão na ordem inversa $ it = $ tree-> Rev_iter; enquanto (meu nó $ nó = $ it-> next) {sprintf" tecla =% s, valor =% s ", $ Node-> Chave, $ Node-> Val;} # interface de hash Tie Minha pital, 'Árvore :: RB'; # ou faça isso para armazenar itens em ordem decrescente Laço Minha pital, 'árvore :: rb', Sub {$ _ CMP $ _ }; $ Capital {'França'} = 'Paris'; $ Capital {'Inglaterra'} = 'Londres'; $ Capital {'Hungria'} = 'Budapeste' $ Capital {'Irlanda'} = 'Dublin'; $ Capital {'Egito'} = 'Cairo'; $ Capital {'Alemanha'} = 'Berlim'; # Itens de impressão em ordem enquanto (meu (US $ val) = cada tecla pital) {printf "= $ tecla, valor = $ Val ";} Requisitos: · Perl.


Árvore :: RB. Software Relacionado

Sobre nós