2023 Day 2
Petra
parent
6a80d60e44
commit
e755e6e5c5
|
|
@ -0,0 +1,101 @@
|
||||||
|
Game 1: 1 blue; 4 green, 5 blue; 11 red, 3 blue, 11 green; 1 red, 10 green, 4 blue; 17 red, 12 green, 7 blue; 3 blue, 19 green, 15 red
|
||||||
|
Game 2: 17 red, 10 green; 3 blue, 17 red, 7 green; 10 green, 1 blue, 10 red; 7 green, 15 red, 1 blue; 7 green, 8 blue, 16 red; 18 red, 5 green, 3 blue
|
||||||
|
Game 3: 10 blue, 3 green, 8 red; 15 green, 14 blue, 1 red; 8 blue, 11 red, 2 green; 5 red, 9 green, 6 blue
|
||||||
|
Game 4: 1 red, 3 blue; 3 blue, 3 green, 1 red; 11 blue, 2 green; 2 green, 14 blue; 1 green, 7 blue; 11 blue, 5 green
|
||||||
|
Game 5: 9 green, 5 red, 10 blue; 9 red, 4 blue, 12 green; 9 green, 6 blue, 14 red; 16 green, 8 red, 6 blue; 11 blue, 13 red, 1 green
|
||||||
|
Game 6: 1 blue, 2 green, 16 red; 1 green, 19 red; 1 blue; 3 blue, 2 red, 1 green; 18 red, 2 blue, 1 green
|
||||||
|
Game 7: 2 blue, 9 red, 5 green; 11 blue, 6 green, 4 red; 7 red, 3 green, 5 blue; 5 green, 11 blue, 7 red; 17 blue, 4 red, 3 green; 20 blue, 1 green, 2 red
|
||||||
|
Game 8: 1 green, 6 red, 4 blue; 8 green, 4 blue, 2 red; 2 blue, 5 green
|
||||||
|
Game 9: 1 green, 5 blue; 4 blue; 2 red, 1 blue
|
||||||
|
Game 10: 1 green, 12 blue; 6 red, 4 green; 5 green, 14 blue, 9 red; 6 red, 13 blue, 2 green; 6 red, 17 blue, 1 green
|
||||||
|
Game 11: 19 green, 1 red; 15 red, 7 green; 1 blue, 8 red, 14 green; 1 blue, 11 green, 1 red
|
||||||
|
Game 12: 4 red, 3 green, 12 blue; 4 green, 13 red; 2 green, 15 blue, 5 red; 5 red, 10 blue, 3 green; 3 green, 17 blue, 17 red; 1 red, 4 green, 15 blue
|
||||||
|
Game 13: 5 red, 7 blue; 6 red, 1 green, 11 blue; 17 blue, 11 green, 4 red; 6 red, 9 green, 5 blue; 4 green, 14 blue
|
||||||
|
Game 14: 6 red, 15 blue, 3 green; 4 green, 4 blue, 3 red; 3 blue, 1 green, 5 red
|
||||||
|
Game 15: 4 green, 3 blue, 6 red; 3 blue, 2 red, 4 green; 15 red, 3 green, 4 blue; 11 red, 2 blue, 1 green
|
||||||
|
Game 16: 4 green, 1 blue, 12 red; 10 green, 6 blue, 10 red; 1 blue, 2 green, 15 red; 1 green, 3 red, 4 blue
|
||||||
|
Game 17: 10 green, 11 blue; 13 green, 10 blue, 3 red; 8 red, 3 green, 10 blue
|
||||||
|
Game 18: 3 red; 4 red, 1 blue; 3 green, 3 red; 10 green, 1 blue; 4 red, 6 green, 1 blue; 3 green
|
||||||
|
Game 19: 4 red, 6 green; 11 red, 4 blue, 2 green; 4 green, 8 red; 9 red, 7 green, 2 blue; 13 red, 4 blue; 9 red
|
||||||
|
Game 20: 2 blue, 1 green, 8 red; 3 green, 11 blue, 1 red; 5 blue, 4 red, 6 green; 6 green, 7 red, 5 blue; 7 red, 2 green, 1 blue
|
||||||
|
Game 21: 7 blue, 3 green; 2 green, 2 red, 7 blue; 6 blue, 3 red, 1 green; 9 blue, 1 green, 3 red
|
||||||
|
Game 22: 7 red, 5 blue, 9 green; 6 red, 1 blue, 5 green; 18 red, 7 green, 5 blue; 13 red, 11 green, 1 blue; 13 red, 1 blue, 11 green
|
||||||
|
Game 23: 10 green, 1 blue, 5 red; 2 red, 4 green; 9 green, 2 red; 10 green, 1 blue, 5 red
|
||||||
|
Game 24: 2 red, 6 green, 16 blue; 3 blue, 12 red, 3 green; 6 blue, 4 red, 12 green; 12 green, 14 blue, 3 red
|
||||||
|
Game 25: 5 red, 2 blue, 1 green; 4 blue, 14 red, 2 green; 16 blue, 4 red; 5 red; 12 blue, 16 red; 2 red, 6 blue, 1 green
|
||||||
|
Game 26: 10 blue, 6 green, 5 red; 2 red, 2 green; 8 blue, 5 red; 7 blue, 11 green; 8 green, 9 blue
|
||||||
|
Game 27: 1 red, 2 green; 6 green, 10 blue; 1 red, 6 green, 11 blue; 4 blue, 1 green, 1 red; 1 red, 7 blue; 5 green, 2 blue, 1 red
|
||||||
|
Game 28: 6 blue, 5 red, 3 green; 5 blue, 1 green; 1 green, 8 red, 1 blue; 2 blue, 4 green; 4 red, 5 blue
|
||||||
|
Game 29: 2 red, 4 green, 6 blue; 6 blue, 2 green, 1 red; 10 green, 13 blue, 2 red; 11 green, 11 blue, 2 red; 5 red, 10 green
|
||||||
|
Game 30: 4 green, 4 blue, 5 red; 6 red, 18 green, 7 blue; 1 red, 11 green, 2 blue; 11 red, 2 blue, 1 green
|
||||||
|
Game 31: 1 red, 7 green, 2 blue; 5 red, 6 green, 9 blue; 3 green, 1 red, 9 blue; 3 red; 8 blue, 6 green, 1 red; 14 blue, 4 green, 7 red
|
||||||
|
Game 32: 11 red, 2 blue, 2 green; 18 blue, 1 green; 6 blue, 1 green, 15 red; 4 red, 2 green; 13 red, 6 green, 5 blue; 7 blue, 5 green
|
||||||
|
Game 33: 12 blue, 2 red, 2 green; 5 blue, 3 green; 2 green, 6 red, 4 blue; 12 blue, 13 red; 10 blue, 12 red, 1 green; 4 blue, 4 red
|
||||||
|
Game 34: 2 blue, 1 red, 6 green; 2 blue, 1 green; 1 red, 2 green, 2 blue; 17 red, 1 blue, 2 green; 4 green, 2 red
|
||||||
|
Game 35: 2 blue, 12 red, 2 green; 2 green, 8 red, 11 blue; 17 red, 16 blue; 8 blue, 8 red; 1 green, 6 red, 9 blue
|
||||||
|
Game 36: 6 red, 14 green, 7 blue; 1 green, 1 red, 6 blue; 9 red, 10 blue, 9 green; 11 blue, 14 green, 8 red; 10 red, 6 green, 3 blue
|
||||||
|
Game 37: 6 green; 2 red, 5 green; 4 blue, 4 red, 5 green; 1 red, 7 green, 4 blue
|
||||||
|
Game 38: 1 green, 8 red, 10 blue; 3 green, 5 red, 12 blue; 13 blue, 5 red, 1 green; 3 green, 1 red; 3 red, 15 blue, 6 green; 3 green, 6 red, 4 blue
|
||||||
|
Game 39: 15 green, 3 blue; 3 green; 3 blue, 3 red, 8 green; 4 blue, 10 green, 4 red; 2 green, 5 blue, 4 red; 3 green, 3 blue, 1 red
|
||||||
|
Game 40: 2 red, 3 green, 15 blue; 5 blue, 13 green, 2 red; 11 blue, 1 red; 5 blue, 20 green, 5 red
|
||||||
|
Game 41: 1 red, 2 green, 1 blue; 10 red; 11 green, 1 blue, 5 red; 10 red, 13 green
|
||||||
|
Game 42: 10 red, 8 green, 2 blue; 5 green, 4 red; 6 red; 5 red, 9 green, 2 blue; 2 blue, 2 red, 3 green; 1 blue, 7 red, 2 green
|
||||||
|
Game 43: 8 red, 6 blue, 12 green; 11 green, 2 red, 2 blue; 4 blue, 3 red, 8 green; 14 red, 3 blue; 9 green, 1 blue, 5 red
|
||||||
|
Game 44: 4 red, 5 blue, 4 green; 9 blue, 1 green; 10 green, 2 blue, 4 red; 5 red, 15 green, 12 blue
|
||||||
|
Game 45: 1 red, 2 green; 5 blue; 3 blue, 1 red; 1 blue; 4 green, 1 red
|
||||||
|
Game 46: 3 green, 8 red, 5 blue; 1 blue, 10 red, 5 green; 2 green, 5 red, 3 blue; 5 green, 4 red, 13 blue
|
||||||
|
Game 47: 2 green, 1 blue; 2 red, 2 green, 6 blue; 1 green, 1 red, 1 blue; 2 green, 4 blue, 4 red; 2 green, 6 blue, 3 red
|
||||||
|
Game 48: 4 blue, 1 green, 2 red; 6 blue, 1 red; 4 blue
|
||||||
|
Game 49: 16 blue, 18 green, 13 red; 7 red, 13 blue; 14 green, 12 red; 20 green, 14 red, 12 blue
|
||||||
|
Game 50: 8 blue, 2 red, 1 green; 4 red, 2 green, 5 blue; 6 blue, 2 green; 8 blue, 3 green, 5 red; 1 green, 4 blue
|
||||||
|
Game 51: 2 blue, 8 red; 2 green, 3 red, 2 blue; 12 green; 3 blue, 10 green, 1 red; 13 green, 3 blue, 5 red
|
||||||
|
Game 52: 12 blue, 5 red, 16 green; 4 blue, 13 green; 2 red, 5 blue, 5 green; 4 green, 8 blue, 3 red
|
||||||
|
Game 53: 7 blue, 5 green; 8 green, 8 blue; 4 red, 1 green; 8 blue, 5 red, 11 green
|
||||||
|
Game 54: 4 blue, 3 green, 1 red; 10 green, 4 red, 7 blue; 1 red, 6 blue, 2 green
|
||||||
|
Game 55: 2 red, 10 blue; 13 red, 10 blue; 4 red, 5 blue, 4 green; 3 green, 8 blue; 5 blue, 7 red, 2 green
|
||||||
|
Game 56: 6 green, 7 blue, 9 red; 3 blue, 4 green; 15 red, 3 blue, 3 green; 5 red, 8 green, 7 blue
|
||||||
|
Game 57: 9 red, 13 blue, 2 green; 3 red, 2 green, 3 blue; 1 blue, 5 red, 3 green; 9 blue, 2 green, 2 red; 3 red, 12 blue, 3 green; 2 green, 7 red
|
||||||
|
Game 58: 4 blue, 7 red; 2 blue, 5 green, 1 red; 17 blue, 3 red; 5 green, 1 blue, 4 red; 4 green, 14 blue, 3 red
|
||||||
|
Game 59: 5 blue, 4 red; 7 red; 4 blue, 4 red, 1 green; 1 green, 1 blue, 5 red
|
||||||
|
Game 60: 4 red, 2 green; 1 green, 2 blue; 2 red, 2 green; 4 red, 2 green; 3 red
|
||||||
|
Game 61: 6 red, 14 green; 12 green, 3 blue; 3 blue, 16 green, 11 red
|
||||||
|
Game 62: 12 green, 2 red, 1 blue; 14 red, 2 blue, 4 green; 7 red, 5 green, 1 blue; 4 green, 14 red, 1 blue; 2 blue, 7 green, 3 red; 14 red, 9 green, 2 blue
|
||||||
|
Game 63: 1 red, 8 blue, 12 green; 3 green, 10 blue, 4 red; 2 red, 1 blue, 2 green; 2 red, 8 green; 4 red, 3 blue, 9 green; 13 green, 4 blue
|
||||||
|
Game 64: 4 blue, 9 green, 4 red; 10 green, 6 blue, 7 red; 10 green, 8 red, 1 blue; 13 blue, 8 green, 8 red; 4 green, 1 red, 8 blue
|
||||||
|
Game 65: 16 blue, 5 red, 13 green; 5 red, 9 green, 10 blue; 2 green, 14 red; 6 red, 5 green, 5 blue; 19 blue, 4 green, 14 red; 7 red, 1 blue, 4 green
|
||||||
|
Game 66: 7 blue, 11 green, 5 red; 7 green, 8 red, 10 blue; 3 red, 1 green
|
||||||
|
Game 67: 9 green, 2 blue, 13 red; 11 red, 10 blue; 14 red, 1 green, 1 blue; 1 red, 13 green, 6 blue; 7 blue, 3 green, 5 red; 3 green, 2 blue
|
||||||
|
Game 68: 6 green, 2 blue; 1 blue, 3 red, 5 green; 1 blue, 10 green
|
||||||
|
Game 69: 4 red, 6 blue, 1 green; 6 blue, 2 red, 4 green; 9 green, 7 blue, 2 red
|
||||||
|
Game 70: 11 blue, 1 green, 4 red; 7 blue, 1 green; 6 red, 9 blue; 1 green, 3 red, 7 blue; 1 green, 9 blue, 2 red
|
||||||
|
Game 71: 2 green, 6 red; 1 blue, 2 green, 15 red; 6 red, 1 blue; 2 green, 5 red
|
||||||
|
Game 72: 5 green, 6 red; 8 red, 1 blue, 12 green; 1 blue, 9 red, 15 green; 11 green, 1 blue, 6 red; 14 green, 5 red
|
||||||
|
Game 73: 9 green, 13 red, 1 blue; 14 green, 5 blue, 13 red; 13 green, 10 red, 16 blue; 3 blue, 7 red, 1 green; 7 red, 6 green, 11 blue
|
||||||
|
Game 74: 1 blue, 9 red, 15 green; 3 blue, 7 green; 9 green, 1 blue, 7 red
|
||||||
|
Game 75: 5 blue, 12 red, 2 green; 2 blue, 2 green; 4 green, 2 red, 7 blue; 4 green, 7 blue, 5 red; 1 green, 7 blue, 3 red
|
||||||
|
Game 76: 1 blue; 8 red, 13 blue; 4 green, 7 blue, 7 red; 3 red, 12 blue, 2 green; 2 green, 2 blue, 1 red
|
||||||
|
Game 77: 4 blue; 4 blue; 1 blue, 1 red; 1 red, 5 blue; 10 blue, 1 green
|
||||||
|
Game 78: 3 blue, 10 green, 6 red; 12 red, 7 blue, 8 green; 2 green, 18 red, 5 blue; 2 red, 15 blue, 14 green; 4 green, 6 blue, 13 red
|
||||||
|
Game 79: 7 red, 1 green; 1 blue, 6 red, 2 green; 1 blue, 12 red
|
||||||
|
Game 80: 4 red, 6 blue, 2 green; 5 blue, 2 red; 6 blue, 7 red, 2 green
|
||||||
|
Game 81: 2 green, 9 red; 2 green, 2 blue, 7 red; 12 red, 7 green; 8 green, 3 red, 3 blue
|
||||||
|
Game 82: 4 green, 5 blue; 2 red, 16 blue; 2 red, 2 green, 18 blue
|
||||||
|
Game 83: 14 red, 2 green; 3 blue, 16 red, 2 green; 4 green, 13 red, 1 blue
|
||||||
|
Game 84: 10 green, 6 blue, 2 red; 5 red, 6 blue; 7 green, 6 red, 9 blue
|
||||||
|
Game 85: 1 red; 12 red, 1 blue, 2 green; 6 red, 1 green; 12 red, 2 green
|
||||||
|
Game 86: 14 red, 1 green, 3 blue; 3 blue; 4 green, 8 red, 2 blue; 10 red, 2 green
|
||||||
|
Game 87: 4 red, 9 green, 8 blue; 3 green, 6 blue, 7 red; 4 blue, 1 red; 2 red, 7 blue, 11 green; 8 green, 2 blue, 5 red; 6 blue, 10 green, 8 red
|
||||||
|
Game 88: 1 green, 1 red; 2 green, 1 blue; 3 green, 1 red, 1 blue; 4 green; 1 blue, 3 green, 1 red
|
||||||
|
Game 89: 11 green, 7 blue, 8 red; 7 blue, 3 green, 2 red; 7 green, 6 red, 4 blue; 1 blue, 2 green, 10 red; 3 red, 2 blue, 1 green
|
||||||
|
Game 90: 10 green, 12 red, 2 blue; 7 red, 7 blue, 8 green; 2 blue, 11 red, 7 green; 6 green, 5 red, 2 blue; 7 red, 10 green
|
||||||
|
Game 91: 12 red, 8 green; 8 red, 6 green, 3 blue; 12 red, 4 blue, 2 green
|
||||||
|
Game 92: 10 blue, 3 green; 4 red, 13 blue, 8 green; 7 green, 8 blue, 7 red
|
||||||
|
Game 93: 7 red, 4 green, 1 blue; 15 green, 4 red; 2 blue, 15 red
|
||||||
|
Game 94: 10 red, 10 green, 11 blue; 3 red, 1 green, 7 blue; 9 red, 4 green, 9 blue; 7 red, 9 green, 13 blue; 9 blue, 2 green, 10 red
|
||||||
|
Game 95: 4 blue, 12 green; 7 green, 1 red, 5 blue; 2 blue, 8 green, 8 red
|
||||||
|
Game 96: 12 green, 2 blue; 11 green, 3 blue; 3 red, 2 green, 5 blue; 12 green, 2 blue, 4 red; 2 blue, 1 green, 1 red; 3 red, 11 green, 3 blue
|
||||||
|
Game 97: 6 red, 3 blue, 1 green; 1 blue, 2 red, 14 green; 4 blue, 14 green
|
||||||
|
Game 98: 13 green, 1 red, 5 blue; 2 red, 5 green, 7 blue; 19 green, 5 blue; 4 blue, 13 green; 5 green, 8 blue
|
||||||
|
Game 99: 11 red, 8 green; 16 red, 10 green; 9 red, 6 green; 3 blue, 2 red, 4 green
|
||||||
|
Game 100: 4 red, 2 blue, 4 green; 2 green, 1 red, 1 blue; 3 green, 4 blue, 5 red; 18 red, 2 blue; 9 red, 5 green, 4 blue
|
||||||
|
|
||||||
|
|
@ -0,0 +1,108 @@
|
||||||
|
program day2
|
||||||
|
implicit none
|
||||||
|
integer, parameter :: max_games = 100
|
||||||
|
integer, parameter :: max_subgames = 100
|
||||||
|
integer, parameter :: max_cdraws = 3
|
||||||
|
integer, parameter :: max_chars = 10000
|
||||||
|
integer, parameter :: max_red = 12
|
||||||
|
integer, parameter :: max_green = 13
|
||||||
|
integer, parameter :: max_blue = 14
|
||||||
|
integer :: game, subgame, cdraw
|
||||||
|
integer :: game_red, game_green, game_blue
|
||||||
|
integer :: ca_1, ca_2
|
||||||
|
integer :: cb_1, cb_2
|
||||||
|
integer :: n_arguments
|
||||||
|
character(max_chars) :: GameLine
|
||||||
|
integer :: tLLen
|
||||||
|
character(200) :: fname
|
||||||
|
logical :: f_col, game_poss
|
||||||
|
integer :: cubes
|
||||||
|
integer :: sum_games, game_power, sum_power
|
||||||
|
n_arguments = command_argument_count()
|
||||||
|
if (n_arguments .eq. 1) then
|
||||||
|
call get_command_argument(1, fname)
|
||||||
|
print *, "File: ", fname
|
||||||
|
else
|
||||||
|
print *, "Wrong number of arguments: ", n_arguments
|
||||||
|
stop
|
||||||
|
end if
|
||||||
|
open(10, file=fname)
|
||||||
|
sum_games = 0
|
||||||
|
sum_power = 0
|
||||||
|
do game=1,max_games
|
||||||
|
read(10, "(a)") GameLine
|
||||||
|
tLLen = len_trim(GameLine)
|
||||||
|
if (tLLen .eq. 0) then
|
||||||
|
continue
|
||||||
|
end if
|
||||||
|
f_col = .false.
|
||||||
|
ca_2 = index(GameLine, ':')
|
||||||
|
if ((ca_2 .eq. 0) .or. (ca_2 .ge. tLLen)) then
|
||||||
|
continue
|
||||||
|
end if
|
||||||
|
game_poss = .true.
|
||||||
|
game_red = 0
|
||||||
|
game_green = 0
|
||||||
|
game_blue = 0
|
||||||
|
do subgame=1,max_subgames
|
||||||
|
ca_1 = ca_2
|
||||||
|
if (ca_1 .ge. tLLen) then
|
||||||
|
exit
|
||||||
|
end if
|
||||||
|
ca_2 = index(GameLine((ca_1 + 1):tLLen), ';')
|
||||||
|
if (ca_2 .eq. 0) then
|
||||||
|
ca_2 = tLLen
|
||||||
|
else
|
||||||
|
ca_2 = ca_1 + ca_2
|
||||||
|
end if
|
||||||
|
|
||||||
|
cb_2 = ca_1
|
||||||
|
do cdraw=1,max_cdraws
|
||||||
|
cb_1 = cb_2
|
||||||
|
if (cb_1 .eq. ca_2) then
|
||||||
|
exit
|
||||||
|
end if
|
||||||
|
cb_2 = index(GameLine(cb_1 + 1:ca_2), ',')
|
||||||
|
if (cb_2 .eq. 0) then
|
||||||
|
cb_2 = ca_2
|
||||||
|
else
|
||||||
|
cb_2 = cb_1 + cb_2
|
||||||
|
end if
|
||||||
|
read(GameLine((cb_1 + 1):cb_2), *) cubes
|
||||||
|
if (index(GameLine((cb_1 + 1):cb_2), "red") .ne. 0) then
|
||||||
|
if (cubes .gt. max_red) then
|
||||||
|
game_poss = .false.
|
||||||
|
end if
|
||||||
|
if (cubes .gt. game_red) then
|
||||||
|
game_red = cubes
|
||||||
|
end if
|
||||||
|
else if (index(GameLine((cb_1 + 1):cb_2), "green") .ne. 0) then
|
||||||
|
if (cubes .gt. max_green) then
|
||||||
|
game_poss = .false.
|
||||||
|
end if
|
||||||
|
if (cubes .gt. game_green) then
|
||||||
|
game_green = cubes
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if (cubes .gt. max_blue) then
|
||||||
|
game_poss = .false.
|
||||||
|
end if
|
||||||
|
if (cubes .gt. game_blue) then
|
||||||
|
game_blue = cubes
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
game_power = game_red * game_green * game_blue
|
||||||
|
sum_power = sum_power + game_power
|
||||||
|
if (game_poss) then
|
||||||
|
print *, "Possible game! ", game, " Power = ", game_power
|
||||||
|
sum_games = sum_games + game
|
||||||
|
else
|
||||||
|
print *, "Not possible. Power = ", game_power
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
print *, "Sum of possible games: ", sum_games
|
||||||
|
print *, "Sum of game powers: ", sum_power
|
||||||
|
close(10)
|
||||||
|
end program day2
|
||||||
Loading…
Reference in New Issue