A-M baby

Task/Dynamic-variable-names/GAP/dynamic-variable-names.gap

@@ -0,0 +1,4 @@
+# As is, will not work if val is a String
+Assign := function(var, val)
+	Read(InputTextString(Concatenation(var, " := ", String(val), ";")));
+end;

Task/Dynamic-variable-names/Genyris/dynamic-variable-names.genyris

@@ -0,0 +1,2 @@
+defvar (intern 'This is not a pipe.') 42
+define |<weird>| 2009

Task/Dynamic-variable-names/Groovy/dynamic-variable-names.groovy

@@ -0,0 +1,6 @@
+def varname = 'foo'
+def value = 42
+
+new GroovyShell(this.binding).evaluate("${varname} = ${value}")
+
+assert foo == 42

Task/Dynamic-variable-names/Icon/dynamic-variable-names.icon

@@ -0,0 +1,5 @@
+procedure main(arglist)
+if *arglist = 0 then stop("Provide the names of variables in the argument list")
+&dump := 1                       # dump program state information and variables after run
+every variable(!arglist) := 1    # set each user specified variable name in arglist to 1
+end

Task/Dynamic-variable-names/J/dynamic-variable-names-1.j

@@ -0,0 +1,2 @@
+require 'misc'
+(prompt 'Enter variable name: ')=: 0

Task/Dynamic-variable-names/J/dynamic-variable-names-2.j

@@ -0,0 +1,5 @@
+   require 'misc'
+   (prompt 'Enter variable name: ')=: 0
+Enter variable name: FOO
+   FOO
+0

Task/Dynamic-variable-names/J/dynamic-variable-names-3.j

@@ -0,0 +1 @@
+(userDefined)=: 0

Task/Dynamic-variable-names/Logo/dynamic-variable-names.logo

@@ -0,0 +1,5 @@
+? make readword readword
+julie
+12
+? show :julie
+12

Task/Dynamic-variable-names/M4/dynamic-variable-names.m4

@@ -0,0 +1,5 @@
+Enter foo, please.
+define(`inp',esyscmd(`echoinp'))
+define(`trim',substr(inp,0,decr(len(inp))))
+define(trim,42)
+foo

Task/Dynamic-variable-names/MUMPS/dynamic-variable-names.mumps

@@ -0,0 +1,12 @@
+USER>KILL ;Clean up workspace
+
+USER>WRITE ;show all variables and definitions
+
+USER>READ "Enter a variable name: ",A
+Enter a variable name: GIBBERISH
+USER>SET @A=3.14159
+
+USER>WRITE
+
+A="GIBBERISH"
+GIBBERISH=3.14159

Task/Dynamic-variable-names/Mathematica/dynamic-variable-names.mathematica

@@ -0,0 +1,4 @@
+varname = InputString["Enter a variable name"];
+varvalue = InputString["Enter a value"];
+ReleaseHold[ Hold[Set["nameholder", "value"]] /. {"nameholder" -> Symbol[varname], "value" -> varvalue}];
+Print[varname, " is now set to ", Symbol[varname]]

Task/Dynamic-variable-names/Maxima/dynamic-variable-names.maxima

@@ -0,0 +1,2 @@
+/* Use :: for indirect assignment */
+block([name: read("name?"), x: read("value?")], name :: x);