List := StrSplit(FileOpen("day9_input.txt","R").Read(),"`r`n")

total := 69316178

Loop % List.Length() {
  Index1 := A_Index
  sum := total
  nums := []
  Loop {
    nums.push(List[Index1 - 1 + A_Index])
    sum -= List[Index1 - 1 + A_Index]
    if (sum == 0)
      MsgBox % "Min: " Min(nums*) "`nMax: " Max(nums*) "`nMin+Max: " Min(nums*) + Max(nums*) "`n`n"
    else if (sum < 0)
      break
  }
}