Albero :: RB.

Implementazione Perl dell'albero rosso / nero, un tipo di albero di ricerca binario equilibrato
Scarica ora

Albero :: RB. Classifica e riepilogo

Annuncio pubblicitario

  • Rating:
  • Licenza:
  • Perl Artistic License
  • Prezzo:
  • FREE
  • Nome editore:
  • Arun Prasaad
  • Sito web dell'editore:
  • http://search.cpan.org/~arunbear/

Albero :: RB. Tag


Albero :: RB. Descrizione

Perl implementazione dell'albero rosso / nero, un tipo di albero di ricerca binario equilibrato Albero :: RB è un'implementazione perl dell'albero rosso / nero, un tipo di albero di ricerca binario equilibrato. È inoltre fornita un'interfaccia Hash legata per consentire l'utilizzo degli hash ordinati. Secondo l'uso dell'articolo di Wikipedia all'indirizzo http: //en.wikipedia .org / wiki / red-black_tree per ulteriori informazioni su alberi rossi / neri.synopsis usa albero :: rb; My $ Tree = Tree :: rb-> nuovo; $ Tree-> Put ('France' => 'paris'); $ Tree-> Put ('England' => 'London'); $ Tree-> Met ('Ungheria' => 'budapest'); $ Tree-> Put ('Irlanda' => 'Dublino'); $ Tree-> Put ('Egitto' => 'Cairo'); $ Tree-> Met ('Germania' => 'Berlin'); $ Tree-> Put ('Alaska' => 'Anchorage'); # D'oh! $ Tree-> Elimina ('Alaska'); Stampa $ Tree-> Get ('Irlanda'); # 'Dublino' Stampa $ Tree-> Min-> Key; # 'Egitto' Stampa $ Tree-> Max-> Key; # 'Irlanda' stampa $ Tree-> Dimensione; # 6 # Elementi di stampa, ordinato da chiave my $ IT = $ Tree-> ITER; while (my $ node = $ it-> next) {sprintf "key =% s, valore =% s ", $ node-> tasto, $ node-> val;} # Stampa elementi in ordine inverso $ IT = $ albero-> rev_iter; while (my $ node = $ it-> next) {sprintf" key =% s, Valore =% s ", $ node-> tasto, $ node-> Val;} # interfaccia hash legare il mio pital, 'albero :: rb'; # o fare questo per archiviare gli oggetti in ordine decrescente legare il mio pital, 'albero :: rb', sub {$ _ cmp $ _ }; $ Capital {'France'} = 'Paris'; $ Capital {'England'} = 'London'; $ Capital {'Ungheria'} = 'Budapest' ; $ Capital {'Ireland'} = 'Dublin'; $ Capital {'Egitto'} = 'Cairo'; $ Capital {'Germania'} = 'Berlin'; # # PRINCIA ARTICOLI IN ORDINE MENT (My ($ Key, $ VAL) = Ogni tasto PITAL) {PrintF "= $ Key, Value = $ Val "; } Requisiti: · Perl.


Albero :: RB. Software correlato