From 5d158006b1bae61fc25f2ecb06ff8290b1238cf7 Mon Sep 17 00:00:00 2001
From: Sijmen Schoon <me@sijmenschoon.nl>
Date: Sun, 2 Dec 2018 21:15:38 +0100
Subject: [PATCH] Fix combinations

---
 Day2/Day2B.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Day2/Day2B.hs b/Day2/Day2B.hs
index 0ba6b24..7124319 100644
--- a/Day2/Day2B.hs
+++ b/Day2/Day2B.hs
@@ -14,7 +14,7 @@ dist :: String -> String -> (Int, String)
 dist = dist' 0 S.empty
 
 combinations :: [String] -> [(String, String)]
-combinations (x:y:xs) = (x, y):(combinations (y:xs))
+combinations (x:xs) = map (x,) xs ++ combinations xs
 combinations [] = []
 
 distances :: [(String, String)] -> String