From ca0effa3af21ddb37e730b42aa9aac406134e3f5 Mon Sep 17 00:00:00 2001
From: Jordan Doyle <jordan@doyle.la>
Date: Sat, 30 Dec 2023 18:06:27 +0000
Subject: [PATCH] Add day 25

---
 2023/24.hs  |  2 +-
 2023/25.sh  | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 README      |  3 +++
 treefmt.nix |  3 +++
 4 files changed, 59 insertions(+), 1 deletion(-)
 create mode 100755 2023/25.sh

diff --git a/2023/24.hs b/2023/24.hs
index e369c42..3bae82b 100755
--- a/2023/24.hs
+++ b/2023/24.hs
@@ -4,7 +4,7 @@ import Aoc (readAndParseStdin)
 import qualified Data.Map as Map
 import Data.Maybe (fromJust, fromMaybe)
 import Numeric.LinearAlgebra
-import Text.Parsec (char, digit, many1, spaces, (<|>), sepBy, string)
+import Text.Parsec (char, digit, many1, sepBy, spaces, string, (<|>))
 import Text.Parsec.String (Parser)
 
 main = do
diff --git a/2023/25.sh b/2023/25.sh
new file mode 100755
index 0000000..2c48f40
--- /dev/null
+++ b/2023/25.sh
@@ -0,0 +1,52 @@
+#! /usr/bin/env nix-shell
+#! nix-shell -i bash -p bash -p graphviz -p imgcat -p gnused -p gawk -p coreutils -p bc
+
+set -euo pipefail
+
+function log() {
+  echo -e "\033[34m$1\033[0m" >&2
+}
+
+function logc() {
+  echo -e "+ \033[35m$*\033[0m" >&2
+  "$@"
+}
+
+log "Generating graph visualisation using graphviz"
+# shellcheck disable=SC2016
+GRAPH=$(logc awk -F': ' '{split($2, nodes, " "); for (i in nodes) print $1" -- "nodes[i]}' input)
+echo "graph a { $GRAPH }" | logc neato -Tpng | logc imgcat
+
+while true; do
+  read -r -p "Which edge would you like to cut? (eg. AA -- BB) " ans
+
+  if [ "$ans" = "" ]; then
+    break
+  elif echo "$GRAPH" | grep -q "$ans"; then
+    GRAPH="${GRAPH//$ans/}"
+    echo "graph a { $GRAPH }" | logc neato -Tpng | logc imgcat
+  else
+    echo "No match for $ans"
+  fi
+done
+
+log "Calculating graph structure"
+SPLIT=$(echo "graph a { $GRAPH }" | ccomps -x || true)
+
+if [ "$(echo "$SPLIT" | grep -o "graph" | wc -l)" -ne 2 ]; then
+  echo "There's not two distinctive subgraphs, try again"
+  exit 1
+fi
+
+# shellcheck disable=SC2016
+PART1=$(echo "$SPLIT" \
+  | logc awk '/^graph/ {subgraph=$2} /^[[:space:]]+/ {gsub(/;/, "", $1); gsub(/;/, "", $3); print subgraph, $1; print subgraph, $3}' \
+  | logc sort \
+  | logc uniq \
+  | logc cut -d ' ' -f 1 \
+  | logc uniq -c \
+  | tr '\n' ' ' \
+  | logc sed -E 's/^[[:space:]]+([0-9]+)[[:space:]]+[^ ]+[[:space:]]+([0-9]+).*/\1*\2\n/g' \
+  | bc)
+
+echo "$PART1"
diff --git a/README b/README
index 30b31ac..cf8d352 100644
--- a/README
+++ b/README
@@ -36,4 +36,7 @@
 |       20 | Haskell  |
 |       21 | Rust     |
 |       22 | Haskell  |
+|       23 | Haskell  |
+|       24 | Haskell  |
+|       25 | Bash     |
 +---------------------+
diff --git a/treefmt.nix b/treefmt.nix
index 288585d..a6bf182 100644
--- a/treefmt.nix
+++ b/treefmt.nix
@@ -10,5 +10,8 @@
     rustfmt.enable = true;
     fprettify.enable = true;
     jsonnetfmt.enable = true;
+    shellcheck.enable = true;
   };
+
+  settings.formatter.shellcheck.options = [ "-s" "bash" ];
 }
--
libgit2 1.7.2