[2023][uiua][11.x] shortening

1 year ago · eeb3633702
parent 0da7444be5
commit eeb3633702
1 changed files with 7 additions and 7 deletions
--- a/2023/uiua/day_11.ua
+++ b/2023/uiua/day_11.ua
@ -1,10 +1,10 @@
 MappedIndices ← +⊃(\+×≡/×=@.)(⇡⧻): -1

 Input ← &fras "../day_11.txt"
-⊜∘≠, @\n Input                       # split on newlines
-↯¯1_2⊞⊂ ∩(MappedIndices 1000000) ⊃∘⍉ # map indices
-=@#▽≠@\n. Input                      # find galaxies
-▽                                    # keep galaxies
-↯¯1_2_2⊠⊟.                           # galaxy pairs
-/+≡(/+⌵-°⊟)                          # distances
-÷2                                   # account for reversed pairs
+⊜∘≠, @\n Input                         # split on newlines
+↯¯1_2⊞⊂ ∩(MappedIndices 1000000) ⊃∘⍉ . # mapped indices
+▽=@#♭:                                 # galaxy indices
+↯¯1_2_2⊠⊟.                             # pairs of galaxies
+⊝≡(⊏⍏.)                                # unique pairs
+≡(/+⌵-°⊟)                              # distances between pairs
+/+                                     # sum