El “problema de los matrimonios estables”

Cálculo de la estabilidad
Datos (calculables a partir de mhr y hmr):
variables rhm:vector[hombre,mujer] de rango
rmh:vector[mujer,hombre] de rango
rhm[h,m] = rango de m en la lista de preferencias de h
rmh[m,h] = rango de h en la lista de preferencias de m
Razones de inestabilidad:
• h prefiere a mp antes que a su pareja m y a su vez mp prefiere a
h antes que a su pareja
• m prefiere a hp antes que a su pareja h y a su vez hp prefiere a
m antes que a su pareja
Cálculo:
e:=verdad; i:=1;
mq (irmh[mp,y[mp]]
fsi;
i:=i+1
fmq;
i:=1; lim:=rmh[m,h];
mq (i