Data commit

Task/Hash-from-two-arrays/SNOBOL4/hash-from-two-arrays.sno

@@ -0,0 +1,16 @@
+*       # Fill arrays
+        keys = array(5); vals = array(5)
+        ks = 'ABCDE'; vs = '12345'
+kloop   i = i + 1; ks len(1) . keys<i> = :s(kloop)
+vloop   j = j + 1; vs len(1) . vals<j> = :s(vloop)
+
+*       # Create hash
+        hash = table(5)
+hloop   k = k + 1; hash<keys<k>> = vals<k> :s(hloop)
+
+*       # Test and display
+        ts = 'ABCDE'
+tloop   ts len(1) . ch = :f(out)
+        str = str ch ':' hash<ch> ' ' :(tloop)
+out     output = str
+end