From bb21ddca071b9e36d7f4396fd381e35748201be4 Mon Sep 17 00:00:00 2001
From: Smaug123 <patrick+github@patrickstevens.co.uk>
Date: Wed, 1 Dec 2021 18:54:04 +0000
Subject: [PATCH] Day 1 in Mathematica

---
 .gitignore    | 1 +
 day_1/day_1.m | 5 +++++
 2 files changed, 6 insertions(+)
 create mode 100644 day_1/day_1.m

diff --git a/.gitignore b/.gitignore
index c77f2e7..327b931 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
 **/target
 .DS_Store
+*.nb
diff --git a/day_1/day_1.m b/day_1/day_1.m
new file mode 100644
index 0000000..a88ce04
--- /dev/null
+++ b/day_1/day_1.m
@@ -0,0 +1,5 @@
+ints = ReadList[StringJoin[NotebookDirectory[], "/input.txt"], "Number"];
+
+part1 = Tr@Clip[Differences@#, {0, 1}] &;
+
+part2 = Tr@Boole[Less @@@ Partition[#, 4, 1][[All, {1, 4}]]] &;