Stable marriage problem: Difference between revisions

Line 1,504:

my %Likes = (

M => {

abe => [qw/ abi eve cath ivy jan dee fay bea hope gay /],

bob => [qw/ cath hope abi dee eve fay bea jan ivy gay /],

col => [qw/ hope eve abi dee bea fay ivy gay cath jan /],

dan => [qw/ ivy fay dee gay hope eve jan bea cath abi /],

ed => [qw/ jan dee bea cath fay eve abi ivy hope gay /],

fred => [qw/ bea abi dee gay eve ivy cath jan hope fay /],

gav => [qw/ gay eve ivy bea cath abi dee hope jan fay /],

hal => [qw/ abi eve hope fay ivy cath jan bea gay dee /],

ian => [qw/ hope cath dee gay bea abi fay ivy jan eve /],

jon => [qw/ abi fay jan gay eve bea dee cath ivy hope /],

},

W => {

abi => [qw/ bob fred jon gav ian abe dan ed col hal /],

bea => [qw/ bob abe col fred gav dan ian ed jon hal /],

cath => [qw/ fred bob ed gav hal col ian abe dan jon /],

dee => [qw/ fred jon col abe ian hal gav dan bob ed /],

eve => [qw/ jon hal fred dan abe gav col ed ian bob /],

fay => [qw/ bob abe ed ian jon dan fred gav col hal /],

gay => [qw/ jon gav hal fred bob abe col ed dan ian /],

hope => [qw/ gav jon bob abe ian dan hal ed col fred /],

ivy => [qw/ ian col hal gav fred bob abe ed jon dan /],

jan => [qw/ ed hal gav abe bob jon col ian fred dan /],

},

);

Line 1,612:

sub men { keys %{ $Likes{M} } }

sub women { keys %{ $Likes{W} } }

sub women { keys %{ $Likes{W} } }</lang>

</lang>

Output:

<pre>