clear
fid = fopen( 'Portugues.txt', 'r' );
A = fread(fid);
fclose( fid );

n = hist( A, (1:256) );
NL = 50;
Latu = 0;
saida = zeros(NL,1);
Perdidos = 0;
%tic
while( Latu<NL )
  lc = fix( rand * 256 ) + 1;
  yc = rand * max(n);
  if yc<=n(lc)
    Latu = Latu + 1;
    saida(Latu) = lc;
  else
    Perdidos = Perdidos + 1;
  end
end
%toc
fprintf( '%s\n', char(saida') )
Perdidos