Hash from two arrays: Difference between revisions
Content added Content deleted
(Hash from two arrays en FreeBASIC) |
|||
Line 892: | Line 892: | ||
} |
} |
||
</lang> |
</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}}== |
=={{header|Frink}}== |