Hash from two arrays: Difference between revisions
Hash from two arrays en FreeBASIC
(Hash from two arrays en FreeBASIC) |
|||
Line 892:
}
</lang>
=={{header|FreeBASIC}}==
<lang freebasic>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</lang>
{{out}}
<pre> 1 one
2 two
3 three
4 four
5 five</pre>
=={{header|Frink}}==
| |||