Sync

Task/Dynamic-variable-names/Erlang/dynamic-variable-names.erl

@@ -0,0 +1,8 @@
+-module( dynamic_variable_names ).
+
+-export( [task/0] ).
+
+task() ->
+    {ok,[Variable_name]} = io:fread( "Variable name? ",	"~a" ),
+    Form = runtime_evaluation:form_from_string( erlang:atom_to_list(Variable_name) ++ "." ),
+    io:fwrite( "~p has value ~p~n", [Variable_name, runtime_evaluation:evaluate_form(Form, {Variable_name, 42})] ).

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.