81(uiua): clean-up with pervasive + and fill infinity

2025-09-22 12:57:21 +02:00
parent 1fda0e55eb
commit d96afb7588
1 changed files with 3 additions and 5 deletions
--- 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 ε