RosettaCodeData/Task/Generic-swap/Logtalk/generic-swap-2.logtalk
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

8 lines
129 B
Text

| ?- paws::swap(apples, oranges, X, Y).
X = oranges
Y = apples
yes
| ?- paws::swap(3.14, ext(lgt), X, Y).
X = ext(lgt)
Y = 3.14