advent of code day 1 in edgeql

aoc-1.edgeql

with
  # I made an object Input with a data property, which made it easier to
  # develop this in the CLI. It also works fine to make the input a parameter.
  input := (select Input filter .day = 1).data,
  # input := <str>$0,
  grps := array_unpack(str_split(input[:-1], '\n\n')),
  sums := (for grp in grps union (
    with entries := <int64>array_unpack(str_split(grp, '\n')),
    select sum(entries)
  )),
select {
  part_1 := max(sums),
  part_2 := sum((select sums order by sums desc limit 3)),
};