Day 1

2023-12-01 22:59:31 +00:00
commit 5923d62dbf
1 changed files with 14 additions and 0 deletions
--- a/mathematica/day_1.m
+++ 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