From f9d219a18d77ff7e9149ce01cb1e7f118b8abc24 Mon Sep 17 00:00:00 2001 From: Daniele Fucini Date: Thu, 5 Dec 2024 15:33:59 +0100 Subject: [PATCH] Fix indentation --- Day5/puzzle2.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Day5/puzzle2.hs b/Day5/puzzle2.hs index 5888cd5..1f1f099 100644 --- a/Day5/puzzle2.hs +++ b/Day5/puzzle2.hs @@ -12,8 +12,8 @@ getMiddle xs = xs !! (length xs `div` 2) sortOnRules :: [(Int, Int)] -> [Int] -> [Int] sortOnRules _ [] = [] sortOnRules rules (x:xs) = sortOnRules rules beforeArray ++ [x] ++ sortOnRules rules afterArray - where afterArray = xs \\ before - beforeArray = xs \\ afterArray + where afterArray = xs \\ before + beforeArray = xs \\ afterArray before = [ p | (p, n) <- rules, n == x ] main = do