commit 5923d62dbf6e28e185b775474bc7bbe3cdfaf578
Author: Smaug123 <patrick+github@patrickstevens.co.uk>
Date:   Fri Dec 1 22:59:31 2023 +0000

    Day 1

diff --git a/mathematica/day_1.m b/mathematica/day_1.m
new file mode 100644
index 0000000..32cdd86
--- /dev/null
+++ b/mathematica/day_1.m
@@ -0,0 +1,14 @@
+(* ::Package:: *)
+
+FromDigits @*
+  Extract[{{1}, {-1}}] @*
+  StringCases[x_?DigitQ :> FromDigits[x]] /@ StringSplit[s, "\n"] // Total
+
+
+{10, 1} .
+  Extract[{{1}, {-1}}] @
+  StringCases[
+      #,
+      {"one" -> 1, "two" -> 2, "three" -> 3, "four" -> 4, "five" -> 5, "six" -> 6, "seven" -> 7, "eight" -> 8, "nine" -> 9, x_?DigitQ :> FromDigits[x]}, 
+      Overlaps -> True
+   ]& /@ StringSplit[s, "\n"] // Total