Stable marriage problem: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 3,945: | Line 3,945: | ||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
||
<lang Mathematica> |
<lang Mathematica><<Combinatorica`; |
||
ClearAll[CheckStability] |
ClearAll[CheckStability] |
||
CheckStabilityHelp[male_, female_, ml_List, fl_List, pairing_List] := Module[{prefs, currentmale}, |
CheckStabilityHelp[male_, female_, ml_List, fl_List, pairing_List] := Module[{prefs, currentmale}, |