%%
clear

[ LISTA ] = leia_lista( 'Lista_Limpa_Portugues.txt' );
[ Yhl, Xhl ] = hist( LISTA, 1:256 );
figure, bar( Xhl, Yhl )
%%
Xnao0 = Xhl(Yhl>0);
Ynao0 = Yhl(Yhl>0);
[ Yordem, ind ] = sort( Ynao0, 'descend' );
Xordem = Xnao0( ind );
for j=1:length(Xordem)
    disp( sprintf( '%c %d', char(Xordem(j)), Yordem(j) ) )
end