langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Associative-array-Iteration/NetRexx/associative-array-iteration.netrexx
+++ b/Task/Associative-array-Iteration/NetRexx/associative-array-iteration.netrexx
@ -0,0 +1,14 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols
+
+surname = 'Unknown' -- default value
+surname['Fred'] = 'Bloggs'
+surname['Davy'] = 'Jones'
+
+try = 'Fred'
+say surname[try] surname['Bert']
+
+-- extract the keys
+loop fn over surname
+  say fn.right(10) ':' surname[fn]
+  end fn