Stable marriage problem: Difference between revisions

m
(Undo revision 88145 by 189.145.166.122 (Talk))
m (→‎{{header|Tcl}}: formatting)
Line 641:
}
 
# Problem dataset; preferences unified since all names distinct
set guys {abe bob col dan ed fred gav hal ian jon}
set gals {abi bea cath dee eve fay gay hope ivy jan}
set preferences {
abe {abi eve cath ivy jan dee fay bea hope gay}
bob {cath hope abi dee eve fay bea jan ivy gay}
col {hope eve abi dee bea fay ivy gay cath jan}
dan {ivy fay dee gay hope eve jan bea cath abi}
ed {jan dee bea cath fay eve abi ivy hope gay}
fred {bea abi dee gay eve ivy cath jan hope fay}
gav {gay eve ivy bea cath abi dee hope jan fay}
hal {abi eve hope fay ivy cath jan bea gay dee}
ian {hope cath dee gay bea abi fay ivy jan eve}
jon {abi fay jan gay eve bea dee cath ivy hope}
 
abi {bob fred jon gav ian abe dan ed col hal}
beaabi {bob abe col fred jon gav dan ian abe dan ed jon col hal}
cathbea {fred {bob ed gavabe hal col ian abefred gav dan ian ed jon hal}
dee cath {fred jonbob col abeed ian hal gav hal col ian abe dan bob edjon}
evedee {fred jon hal fredcol dan abe gav colian ed ianhal gav dan bob ed}
fayeve {bobjon abe edhal ian jonfred dan fred abe gav col hal ed ian bob}
gayfay {jonbob gav halabe fred bobed abe col edian jon dan ianfred gav col hal}
hopegay {jon gav jon hal fred bob abe iancol dan hal ed col freddan ian}
ivy hope {iangav col haljon gav fred bob abe ed jonian dan hal ed col fred}
janivy {edian col hal gav abe fred bob jonabe col ianed jon fred dan}
jan {ed hal gav abe bob jon col ian fred dan}
}
 
Anonymous user