Stable marriage problem: Difference between revisions
Content added Content deleted
(added ocaml) |
m (→{{header|OCaml}}: leave a TODO message) |
||
Line 509: | Line 509: | ||
let stable_matching ~men ~women = |
let stable_matching ~men ~women = |
||
let rec aux ms ws = |
let rec aux ms ws = |
||
match free_men ms with |
match free_men ms with (*TODO free men who still has some w to propose to *) |
||
| [] -> (ms, ws |
| [] -> (ms, ws) |
||
| m::_ -> |
| m::_ -> |
||
let w = get_highest_ranked m in |
let w = get_highest_ranked m in |