@Max posted some comments here, but that topic is for days 17, 18, and 19, so I figured a new thread was not useless.
I did it both ways using Breadth-First Search. Ada.Containers.*Queues
don’t allow you to sort queues, and I have a vague memory that the last time I tried to use a priority queue it was a slow tool, the wrong tool, or both slow and wrong, so I queued elements up using a vector that I then sorted on each iteration. That … slows … things … … down … … … at least in Part 2, but it still gets the job done. I may revisit this at some point to look at Ada’s priority queue at some point.
Rather than fuss over visualizing a solution to Part 1 as a binary image, I fussed over visualizing it as text in an html page, here.