Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Dynamic-variable-names/Logtalk/dynamic-variable-names.logtalk
+++ b/Task/Dynamic-variable-names/Logtalk/dynamic-variable-names.logtalk
@ -0,0 +1,18 @@
+| ?- create_object(Id, [], [set_logtalk_flag(dynamic_declarations,allow)], []),
+     write('Variable name:  '), read(Name),
+     write('Variable value: '), read(Value),
+     Fact =.. [Name, Value],
+     Id::assertz(Fact).
+
+Variable name:  foo.
+Variable value: 42.
+Id = o1,
+Name = foo,
+Value =  42,
+Fact = foo(42).
+
+?- o1::current_predicate(foo/1).
+true.
+
+| ?- o1::foo(X).
+X = 42.