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