RosettaCodeData/Task/Singleton/Logtalk/singleton-2.logtalk

8 lines
105 B
Plaintext

| ?- singleton::value(Value).
Value = 0
yes
| ?- singleton::(set_value(1), value(Value)).
Value = 1
yes