Data commit

Task/Hash-from-two-arrays/NetRexx/hash-from-two-arrays-1.netrexx

@@ -0,0 +1,22 @@
+/* NetRexx program ****************************************************
+* 04.11.2012 Walter Pachl  derived from REXX
+**********************************************************************/
+options replace format comments java crossref savelog symbols nobinary
+  values='triangle quadrilateral pentagon hexagon heptagon octagon' -
+         'nonagon decagon dodecagon'
+  keys  ='three four five six seven eight nine ten twelve'
+  kcopy=keys
+  k=''                                 /* initialize the arrays      */
+  v=''
+  value='unknown'
+  Loop i=1 By 1 While kcopy>''         /* initialize the two arrays  */
+    Parse kcopy  ki kcopy;  k[i]=ki
+    Parse values vi values; v[i]=vi
+    End
+  Loop j=1 To i-1
+    value[k[j]]=v[j]
+    End
+  Say 'Enter one of these words:'
+  Say ' 'keys
+  Parse Ask z
+  Say z '->' value[z]

Task/Hash-from-two-arrays/NetRexx/hash-from-two-arrays-2.netrexx

@@ -0,0 +1,41 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+vals = [ 'zero', 'one', 'two', 'three', 'four', 'five' ]
+keys = [ 'k0', 'k1', 'k2', 'k3', 'k4', 'k5' ]
+hash1 = Rexx
+hash2 = Map
+
+hash1 = HashMap()
+hash2 = ''
+makeHash(hash1, keys, vals) -- using a Map object (overloaded method)
+makeHash(hash2, keys, vals) -- using a Rexx object (overloaded method)
+
+return
+
+-- Using a Java collection object
+method makeHash(hash = Map, keys = Rexx[], vals = Rexx[]) static
+  loop k_ = 0 to keys.length - 1
+    hash.put(keys[k_], vals[k_])
+    end k_
+
+  key = Rexx
+  loop key over hash.keySet()
+    say key.right(8)':' hash.get(key)
+    end key
+  say
+
+  return
+
+-- For good measure a version using the default Rexx object as a hash (associative array)
+method makeHash(hash = Rexx, keys = Rexx[], vals = Rexx[]) static
+  loop k_ = 0 to keys.length - 1
+    hash[keys[k_]] = vals[k_]
+    end k_
+
+  loop key over hash
+    say key.right(8)':' hash[key]
+    end key
+  say
+
+  return