function distancia = distHamming(p1,p2)
  largo1 = length(p1);
  largo2 = length(p2);
  distancia = 0;
  if largo1 ~= largo2 || (largo1 == 0 || largo2 == 0) 
    distancia = -1;
  else
    for i=1:largo1
      if p1(i) ~= p2(i)
        distancia = distancia + 1;
      endif
    endfor
  endif
endfunction