Day 18: Ram Run

Megathread guidelines

  • Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
  • You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://topaz.github.io/paste/ if you prefer sending it through a URL

FAQ

  • mykl@lemmy.world
    link
    fedilink
    arrow-up
    2
    ·
    edit-2
    4 days ago

    Uiua

    I didn’t think I could do this in Uiua this morning, but I gave it some thought while walking the dog and managed to wrangle the data into shape tonight. I factored out the binary chop as that seems like another useful tool to have up my sleeve.

    EDIT: goddammit, Kai literally snuck a new RC release out just after I posted this, with a breaking change to how path works. Updated version below.

    Try it here!

    Data   ≡◇(⊜⋕⊸≠@,)°/$"_\n_" "5,4\n4,2\n4,5\n3,0\n2,1\n6,3\n2,4\n1,5\n0,6\n3,3\n2,6\n5,1\n1,2\n5,5\n2,5\n6,5\n1,4\n0,4\n6,4\n1,1\n6,1\n1,0\n0,5\n1,6\n2,0"
    End    6_6
    Count  12
    
    D₄       [1_0 ¯1_0 0_1 0_¯1]
    Valid    ▽¬⊸∊:▽⊸(≡/××⊃(≤⊢End|≥0))+D₄¤
    BestLen  (-1⧻⊢path(Valid|≍End)0_0:Data|∞)
    Chop!    ◌⍢((⊙◌+1|⊙⊙◌:):⟜^0⌊÷2+,,|>)
    
    &p BestLen Count
    &p/$"_,_":Data-1Chop!(=∞BestLen)Count Data
    
    spoiler