Re: Advent of Code day 5

[Stephen Leake <stephen_leake@stephe-leake.org>]

Björn Lundin <b.f.lundin@gmail.com> writes:

> Den 2020-12-06 kl. 10:14, skrev Jeffrey R. Carter:
>> On 12/5/20 3:54 PM, Stephen Leake wrote:
>>> that was trivial
>> I'm curious: Did everyone do this by treating the input as a coded 
>> 10-digit binary number, or did some take another approach?
>> 
>
>
> I uses it as binary 7 +3, but I did the calculaions through the shell
> text utilities
>
>
> First I decoded and printed all rows, seats and ids like
>
> loop file and decode
>   ...
>   Text_Io.Put_Line (Row'Img & Seat'Img & Id'Img);
> end loop

I didn't bother computing row and seat, since they are not actually
needed to find the answer.

> and ran it through cut/sort/uniq

Next time, try ada.containers.generic_array_sort;
http://www.ada-auth.org/standards/2xrm/html/RM-A-18-26.html

I used a boolean array to do the sort:

   declare
      Present : array (Integer range 1 .. Max_ID) of Boolean := (others => False);
   begin
      for ID of IDs loop
         Present (ID) := True;
      end loop;

      for ID in Present'First + 1 .. Present'Last - 1 loop
         if Present (ID - 1) and (not Present (ID)) and Present (ID + 1) then
            Put_Line ("my seat id:" & ID'Image);
         end if;
      end loop;
   end;

-- 
-- Stephe