3.1.2. Operaciones con tries.

Operación para Insertar una palabra en un trie

var

i: integer; { Número de la letra actual }

t: Trie; { Puntero a los nodos recorridos en el trie }

begin

i:= 1;

t:= diccionario;

while x[i]<>’$’ do begin

if Valor_de (t^, x[i]) = nil then

Toma_nuevo (t^, x[i]);

t:= Valor_de (t^, x[i]);

i:= i + 1;

end;

Asigna (t^, ‘$’, t);

end;