Anonymous user
Stable marriage problem: Difference between revisions
Fixed diagnostic message
(→{{header|Python}}: Clarification to stability check message.) |
(Fixed diagnostic message) |
||
Line 686:
=={{header|PicoLisp}}==
<lang PicoLisp>(setq
*Boys (list
Line 738 ⟶ 737:
(cdr (asoq B *Couples)) # and B prefers Girl
(cdr (memq Girl (val B))) )
(prinl
Girl " likes " B " better than " Boy " and "
B " likes " Girl " better than "
(cdr (asoq B *Couples)) ) ) )
(val Girl) ) ) )
*Couples )
Line 763 ⟶ 765:
Engage fred with abi and jon with bea
fay likes jon better than dan and jon likes fay better than bea
eve likes jon better than hal and jon likes eve better than bea
gay likes jon better than gav and jon likes gay better than bea
bea likes fred better than jon and fred likes bea better than abi</pre>
=={{header|Python}}==
| |||