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
- What is this?: Here is a post with a large amount of details: https://programming.dev/post/6637268
- Where do I participate?: https://adventofcode.com/
- Is there a leaderboard for the community?: We have a programming.dev leaderboard with the info on how to join in this post: https://programming.dev/post/6631465
You are viewing a single thread.
View all comments 
2 points
*
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.
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
