RosettaCodeData/Task/Currying/Logtalk/currying.logtalk

4 lines
85 B
Text
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
| ?- logtalk << call([Z]>>(call([X,Y]>>(Y is X*X), 5, R), Z is R*R), T).
T = 625
yes