RosettaCodeData/Task/Generic-swap/Logtalk/generic-swap-2.logtalk

9 lines
129 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
| ?- 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