Data commit

Task/Hash-from-two-arrays/FreeBASIC/hash-from-two-arrays.basic

@@ -0,0 +1,14 @@
+Dim As String keys(1 To 5) = {"1", "2", "3", "4", "5"}
+Dim As String values(1 To 5) = {"one", "two", "three", "four", "five"}
+Dim As String hash(Lbound(keys) To Ubound(keys))
+Dim As Integer i, temp
+
+For i = Lbound(values) To Ubound(values)
+    temp = Val(keys(i))
+    hash(temp) = values(i)
+Next i
+
+For i = Lbound(hash) To Ubound(hash)
+    Print keys(i); " "; hash(i)'; " "; i
+Next i
+Sleep