Hash join: Difference between revisions
Added FreeBASIC
Drkameleon (talk | contribs) (added Arturo) |
(Added FreeBASIC) |
||
| (One intermediate revision by one other user not shown) | |||
Line 1,044:
(message "%s" (join-tables table1 table2)) )
</syntaxhighlight>
=={{header|FreeBASIC}}==
<syntaxhighlight lang="vbnet">Type Data1
value As Integer
key As String
End Type
Type Data2
key As String
value As String
End Type
Dim table1(5) As Data1
Dim table2(5) As Data2
table1(1).value = 27: table1(1).key = "Jonah"
table1(2).value = 18: table1(2).key = "Alan"
table1(3).value = 28: table1(3).key = "Glory"
table1(4).value = 18: table1(4).key = "Popeye"
table1(5).value = 28: table1(5).key = "Alan"
table2(1).key = "Jonah": table2(1).value = "Whales"
table2(2).key = "Jonah": table2(2).value = "Spiders"
table2(3).key = "Alan": table2(3).value = "Ghosts"
table2(4).key = "Alan": table2(4).value = "Zombies"
table2(5).key = "Glory": table2(5).value = "Buffy"
Print String(51, "-")
Print " Age | Name || Name | Nemesis"
Print String(51, "-")
For i As Integer = 1 To 5
For j As Integer = 1 To 5
If table1(i).key = table2(j).key Then
Print Using " ## | \ \ || \ \ | \ \"; table1(i).value; table1(i).key; table2(j).key; table2(j).value
End If
Next j
Next i
Sleep</syntaxhighlight>
{{out}}
<pre>---------------------------------------------------
Age | Name || Name | Nemesis
---------------------------------------------------
27 | Jonah || Jonah | Whales
27 | Jonah || Jonah | Spiders
18 | Alan || Alan | Ghosts
18 | Alan || Alan | Zombies
28 | Glory || Glory | Buffy
28 | Alan || Alan | Ghosts
28 | Alan || Alan | Zombies</pre>
=={{header|F_Sharp|F#}}==
Line 3,436 ⟶ 3,487:
=={{header|Wren}}==
{{libheader|Wren-fmt}}
<syntaxhighlight lang="
class A {
| |||