RosettaCodeData/Task/Stable-marriage-problem/Haskell/stable-marriage-problem-5.hs

2 lines
62 B
Haskell
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
s0 = State (fst <$> guys0) guys0 ((_2 %~ reverse) <$> girls0)