%%
clear
IDIOMA = 'Portugues';
% IDIOMA = 'Ingles';
fid = fopen( sprintf('Lista_Limpa_%s.txt',IDIOMA) );
A = fgetl( fid );
fclose( fid )

%%
Nfake = 1e4;
% Afake = char( ...
%     fix( ...
%     rand(1,Nfake)*(double('z')-double('a')+1) + double('a') ...
%     ) ...
%     );
INTEL = 1;
switch( INTEL )
    case{ 0 }
        prob_fake = zeros(1,255);
        prob_fake(97:122) = (7/8)*1/26;
        prob_fake(32) = (1/8);
        Afake = char( aleatorio_especial( prob_fake, Nfake ) )';
    case{ 1 }
        prob_fake = hist( double(A), 1:255 )/length(A);
        Afake = char( aleatorio_especial( prob_fake, Nfake ) )';
end
onde_espacoAfake = find( Afake==32 );
NpalavrasAfake = length(onde_espacoAfake)-1;
Nachou = 0;
for qp = 1 : NpalavrasAfake
    palavra_atual = Afake( onde_espacoAfake(qp):onde_espacoAfake(qp+1) );
    onde_tem = strfind( A, palavra_atual );
    if ~isempty(onde_tem)
        Nachou = Nachou + 1;
    end
end
disp( sprintf( 'INTEL=%d, achou %d palavras em %d geradas (%.2f%%)', ...
    INTEL, Nachou, NpalavrasAfake, 100*Nachou/NpalavrasAfake ) )
