commit 3959a84bb8362949b1086f166f99ed602763a1c2
author Knut Nesheim <knutin@gmail.com> Mon Jan 20 15:50:22 2014 +0100
committer Knut Nesheim <knutin@gmail.com> Mon Jan 20 15:50:22 2014 +0100
tree 97a2ede759af3e55fe4ae834e24d9e5a947ee6ea
parent 933eb45008d7a8e5af53c5619ef9d5c7cea3e590

Measure time of 5 unions.

src/hyper.erl

diff --git a/src/hyper.erl b/src/hyper.erl
index 6fc49b9..fe215dc 100644
--- a/src/hyper.erl
+++ b/src/hyper.erl
@@ -315,9 +315,12 @@
                              [generate_unique(Card), new(P, Mod)]),
              ReusableH = compact(insert_many(generate_unique(Card), new(P, Mod))),
 
-             UnionUs = Time(fun (L, R) -> compact(union(L, R)) end,
-                            [insert_many(generate_unique(Card div 10), new(P, Mod)),
-                             ReusableH]),
+             UnionUs = Time(fun (Fs) -> union(Fs) end,
+                            [[insert_many(generate_unique(Card div 10), new(P, Mod)),
+                              insert_many(generate_unique(Card div 10), new(P, Mod)),
+                              insert_many(generate_unique(Card div 10), new(P, Mod)),
+                              insert_many(generate_unique(Card div 10), new(P, Mod)),
+                              insert_many(generate_unique(Card div 10), new(P, Mod))]]),
 
              CardUs = Time(fun card/1, [ReusableH]),