dancer(175, "c", m, bob).
dancer(180, "b", m, anthony).
dancer(160, "d", m, paul).
dancer(160, "e", m, nick).
dancer(176, "a", m, fred).
dancer(172, "b", f, mary).
dancer(170, "c", f, ann).
dancer(165, "d", f, louise).
dancer(168, "c", f, natalie).
dancer(158, "a", f, claudia).
partner(X, Y) :-
dancer
(A
, B
, f
, X
), dancer
(C
, D
, m
, Y
), Diff
is C
- A
, Diff
=< 10, A
< C
, B
=< D
.
ZGFuY2VyKDE3NSwgImMiLCBtLCBib2IpLgpkYW5jZXIoMTgwLCAiYiIsIG0sIGFudGhvbnkpLgpkYW5jZXIoMTYwLCAiZCIsIG0sIHBhdWwpLgpkYW5jZXIoMTYwLCAiZSIsIG0sIG5pY2spLgpkYW5jZXIoMTc2LCAiYSIsIG0sIGZyZWQpLgoKZGFuY2VyKDE3MiwgImIiLCBmLCBtYXJ5KS4KZGFuY2VyKDE3MCwgImMiLCBmLCBhbm4pLgpkYW5jZXIoMTY1LCAiZCIsIGYsIGxvdWlzZSkuCmRhbmNlcigxNjgsICJjIiwgZiwgbmF0YWxpZSkuCmRhbmNlcigxNTgsICJhIiwgZiwgY2xhdWRpYSkuCgpwYXJ0bmVyKFgsIFkpIDotCmRhbmNlcihBLCBCLCBmLCBYKSwgZGFuY2VyKEMsIEQsIG0sIFkpLCBEaWZmIGlzIEMgLSBBLCBEaWZmID08IDEwLCBBIDwgQywgQiA9PCBELgo=