3.1.2. Operaciones con tries.

Operaciones sobre los nodos de un trie.

procedure Anula (var nodo: Nodo_trie);

var

c: char;

begin

for c:= ‘A’ to ‘Z’ do

nodo[c]:= nil;

nodo[‘$’]:= nil;

end;

procedure Asigna (var nodo: Nodo_trie; c: char; p: ^Nodo_trie);

begin

nodo[c]:= p;

end;

function Valor_de (var nodo: Nodo_trie; c: char): ^Nodo_trie;

begin

return (nodo[c]);

end;

procedure Toma_nuevo (var nodo: Nodo_trie; c: char);

begin

new (nodo[c]);

Anula (nodo[c]^);

end;

Diapositiva anterior

Diapositiva siguiente

Ir a la primera diapositiva

Ver versión gráfica