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

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