Anagrama

De GNU Octave
Ir para: navegação, pesquisa

Escreva uma função que verifica se a segunda frase é um anagrama da primeira. Isto é, se a segunda frase é escrita com as mesmas letras da primeira, como em:

  • Ator = Rota
  • Jim Morrison = Mr Mojo Risin
  • Quid est veritas = Est vir qui adest

Obviamente que todos os palíndromos são anagramas.

function res = isanagrama(a, b)
% isanagrama(a,b)
%	indica se a segunda frase é escrita apenas com letras da primeira.
	alimpa = lower(a(find(isletter(a))));
	blimpa = lower(b(find(isletter(b))));
	[teste, posicoes] = ismember(alimpa, blimpa);
	res = all(teste);
endfunction