Anagramma

#include <iostream>
#include <string.h>
using namespace std;

int main () {
   int i;

   char prima[20], seconda[20];

   cout <<"Inserire prima parola:  ";
   cin >>prima;
   cout <<"\nInserire seconda parola:  ";
   cin >>seconda;


       if (strlen(prima) != strlen(seconda)) {
       cout <<"Impossibile, parole di lunghezza diversa";
       } else {
       i = strlen(prima);
          if (strspn(prima, seconda) == i && strspn(seconda, prima) == i) {
            cout <<"\nTrue";
          } else {
          cout <<"\nFalse"; }
       }

}

class String
 def anagram? (what)
   chars.sort == what.to_s.chars.sort
 end
end

Program anagramma;
uses crt;
var j : char;
   mat : array['a'..'b','a'..'z'] of integer;
   x,y : integer;
   parolaa, parolab : string;
   cont : boolean;
begin
clrscr;
for j:='a' to 'z' do
 begin
  mat['a',j]:=0;
  mat['b',j]:=0;
 end;
writeln('Inserisci le due parole separate da uno spazio');
readln(parolaa,parolab);
x:=lenght[parolaa];
y:=lenght[parolab];
for i:=1 to x do
  for j:='a' to 'z' do
   if parolaa[i] = j then mat['a',j]:=mat['a',j]+1;
for i:=1 to y do
  for j:='a' to 'z' do
   if parolab[i] = j then mat['b',j]:=mat['b',j]+1;
cont:=true;
for j:='a' to 'z' do
 if mat['a',j] <> mat['b',j] then cont:=false;
if cont:=true then writeln(parolaa,' e ', parolab,' sono l''una anagramma dell''altra')
else
  writeln('Le due parole non sono l''una anagramma dell''altra');
end.

def parole(parola1,parola2):
   lettere1=[]
   lettere2=[]
   for p in parola1:
       lettere1.append(p)
   for r in parola2:
       lettere2.append(r)

   lettere1.sort()
   lettere2.sort()

   if lettere1==lettere2:
       print True
   else:
       print False
   
   
parola1=raw_input('inserisci parola')
parola2=raw_input('inserisci altra parola')

parole(parola1,parola2)