From 7a67ad065987483050e26d2d4e040804203965b4 Mon Sep 17 00:00:00 2001
From: Daniele Fucini <dfucini@gmail.com>
Date: Sun, 17 Nov 2024 12:16:15 +0100
Subject: [PATCH] Improve code in Haskell solution for Problem 54

---
 Haskell/p054.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/Haskell/p054.hs b/Haskell/p054.hs
index 12140e7..0ac5f92 100644
--- a/Haskell/p054.hs
+++ b/Haskell/p054.hs
@@ -211,9 +211,8 @@ playGame g
         in if xs > ys then 1 else -1
 
 main = do
-    withFile "p054_poker.txt" ReadMode (\handle -> do
-        contents <- hGetContents handle
-        let games = map readGame (lines contents)
-            result = sum $ filter (==1) $ map playGame games
-        putStrLn $ "Project Euler, Problem 54\n"
-            ++ "Answer: " ++ show result)
+    contents <- readFile "p054_poker.txt"
+    let games = map readGame (lines contents)
+        result = sum $ filter (==1) $ map playGame games
+    putStrLn $ "Project Euler, Problem 54\n"
+        ++ "Answer: " ++ show result