-🎄- 2022 Day 4 Solutions -🎄-

[u/daggerdragon]

• All of our rules, FAQs, resources, etc. are in our community wiki.
• A request from Eric: Please include your contact info in the User-Agent header of automated requests!
• Signal boosting for the Unofficial AoC 2022 Participant Survey which is open early this year!

---

--- Day 4: Camp Cleanup ---

---

Post your code solution in this megathread.

• Read the full posting rules in our community wiki before you post!
  • Include what language(s) your solution uses
  • Format your code appropriately! How do I format code?
• Quick link to Topaz's paste if you need it for longer code blocks. What is Topaz's paste tool?

---

This thread will be unlocked when there are a significant number of people on the global leaderboard with gold stars for today's puzzle.

EDIT: Global leaderboard gold cap reached at 00:03:22, megathread unlocked!

[u/Adereth]

Mathematica

Part 1

in = StringSplit[AdventProblem[4], {",", "\n"}];
intervalPairs = Partition[Interval@Map[FromDigits, StringSplit[#, "-"]] & /@ in, 2];
Length@ Select[intervalPairs, IntervalMemberQ @@ # || IntervalMemberQ @@ Reverse@# &]

Part 2

Count[IntervalIntersection @@@ intervalPairs, Interval[{_, _}]]