From 2d324ad69e72e56ff99ce53c55e248661a363b82 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 16 Dec 2020 21:26:58 +0100 Subject: Day 13 --- 2020/6.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to '2020/6.hs') diff --git a/2020/6.hs b/2020/6.hs index 14aa44a..be45715 100644 --- a/2020/6.hs +++ b/2020/6.hs @@ -1,18 +1,12 @@ module Main (main) where import qualified Data.List.NonEmpty as NE -import Data.List.NonEmpty (NonEmpty(..), (<|)) import qualified Data.Set as Set import Input +import Util -splitOn :: (a -> Bool) -> [a] -> NonEmpty [a] -splitOn _ [] = [] :| [] -splitOn f (x:xs) | f x = [] <| splitOn f xs - | otherwise = let l :| ls = splitOn f xs - in (x : l) :| ls - main :: IO () main = do input <- getInput 6 -- cgit v1.2.3-54-g00ecf