From e999b6f2ed5c79428eb3842a5e13553370c5f9c3 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Sun, 4 Dec 2022 10:42:20 +0000 Subject: [PATCH] Point-free disjoint --- advent04/Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/advent04/Main.hs b/advent04/Main.hs index 456b157..a295abf 100644 --- a/advent04/Main.hs +++ b/advent04/Main.hs @@ -40,13 +40,14 @@ hasContainment (assignment1, assignment2) = disjoint (assignment1, assignment2) = (assignment1 `before` assignment2) || (assignment2 `before` assignment1) -overlaps pair = not $ disjoint pair +overlaps = not . disjoint contains, before :: Assignment -> Assignment -> Bool contains (Assignment lower1 upper1) (Assignment lower2 upper2) = (lower1 <= lower2) && (upper1 >= upper2) -before (Assignment _lower1 upper1) (Assignment lower2 _upper2) = (upper1 < lower2) +before (Assignment _lower1 upper1) (Assignment lower2 _upper2) = + (upper1 < lower2) -- Parse the input file -- 2.34.1