Anonymous user
Stable marriage problem: Difference between revisions
m
→{{header|Haskell}}
Line 2,756:
<lang Haskell>stableMatching :: Eq a => State a -> [Couple a]
stableMatching = getPairs .
where
getPairs s = map (_2 %~ head) $ s^.guys
| |||