From d96afb7588006d979c7aaab0e9d43218de4a2176 Mon Sep 17 00:00:00 2001
From: fredrikr79 <fredrikrobertsen7@gmail.com>
Date: Mon, 22 Sep 2025 12:57:21 +0200
Subject: [PATCH] 81(uiua): clean-up with pervasive + and fill infinity

---
 81/main.ua | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/81/main.ua b/81/main.ua
index 1e607af..50f9c07 100644
--- a/81/main.ua
+++ b/81/main.ua
@@ -11,11 +11,9 @@ $ 805 & 732 & 524 & 37 & 331
 # find shortest path to lower right corner
 # ? cost-matrix
 Sol ← +⋅⊙⊡◡(
-  °□⊢path(
-    ⊃(+0_1|+1_0)    # get children
-    ∩↧⊙⤙⊙∘ ⊙⊙⊸(-1△) # clamp children to max index
-    ⤚⊡⊟             # get costs
-  | ≍⊙(-1△)         # are we at the corner yet?
+  ⊢path(
+    ⤚⬚∞⊡ +[0_1 1_0] ¤ # get children & costs
+  | ≍⊙(-1△)           # are we at the corner yet?
   )
 ) 0_0
 ⍤⤙≍ 2427 Sol ε