-🎄- 2020 Day 1 Solutions -🎄-

program advent01;
var
  src : text;
  s : string;
  data : array[1..1000] of integer;
  i,j,k : integer;
  x : integer;
  sum, prod : integer;
  count : integer;

begin
  assign(src,'input01.txt');
  reset(src);
  count := 0;
  while not eof(src) do
  begin
    inc(count);
    readln(src,x);
    writeln(x);
    data[count] := x;
  end;
  close(src);
  writeln(Count,' entries read');
  for i := 1 to count-1 do
    for j := i+1 to count do
      if (data[i]+data[j]) = 2020 then
        writeln(data[i],',',data[j],',',data[i]*data[j]);
end.

permalink hide replies (1)as-of

[–]rabuf1 point5 years, 1 month ago

Working in a kindred language, of sorts (Ada), I felt compelled to upvote this one. I imagine you solved part 2 the same way?

permalinkparentcontexthide replies (1)author-focusas-ofpreserve

[–][deleted]2 points5 years, 1 month ago

Yes... I changed only a few lines at the end, to handle another level of loop, and to stop one earlier on the outside loop, and of course do 3 entries instead of 2

  for i := 1 to count-2 do
    for j := i+1 to count-1 do
      for k := j+1 to count do
        if (data[i]+data[j]+data[k]) = 2020 then
          writeln(data[i],',',data[j],',',data[k],',',data[i]*data[j]*data[k]);

permalinkparentcontextas-of

r/reveddit removed.substack.com