langs a-z

Task/Associative-array-Iteration/SNOBOL4/associative-array-iteration.sno

@@ -0,0 +1,16 @@
+*       # Create sample table
+        t = table()
+        t<'cat'> = 'meow'
+        t<'dog'> = 'woof'
+        t<'pig'> = 'oink'
+
+*       # Convert table to key/value array
+        a = convert(t,'array')
+
+*       # Iterate pairs
+ploop   i = i + 1; output = a<i,1> ' -> ' a<i,2> :s(ploop)
+*       # Iterate keys
+kloop   j = j + 1; output = a<j,1> :s(kloop)
+*       # Iterate vals
+vloop   k = k + 1; output = a<k,2> :s(vloop)
+end