Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Hash-join/F-Sharp/hash-join.fs
+++ b/Task/Hash-join/F-Sharp/hash-join.fs
@ -0,0 +1,23 @@
+[<EntryPoint>]
+let main argv =
+    let table1 = [27, "Jonah";
+                18, "Alan";
+                28, "Glory";
+                18, "Popeye";
+                28, "Alan"]
+    let table2 = ["Jonah", "Whales";
+                "Jonah", "Spiders";
+                "Alan", "Ghosts";
+                "Alan", "Zombies";
+                "Glory", "Buffy"]
+    let hash = Seq.groupBy (fun r -> snd r) table1
+    table2
+    |> Seq.collect (fun r ->
+        hash
+        |> Seq.collect (fun kv ->
+            if (fst r) <> (fst kv) then []
+            else (Seq.map (fun x -> (x, r)) (snd kv)) |> Seq.toList)
+        )
+    |> Seq.toList
+    |> printfn "%A"
+    0