nFormer un Heap a partir des lettres de l’alphabet et de leures frequences (a, fa), (b, fb),….
nFor i = n+1 to 2n –1 do
nNew(Elem(i))
nElem(i). left ß Remove(Heap)
nElem(i). right ß Remove(Heap)
nfi ß fleft + fright
nInsert ( Elem(i, fi ),
Heap )
nReturn
n
n