From 96133fbe4fb7cc4942cb198df709c33a4fbc6aae Mon Sep 17 00:00:00 2001 From: plasmaofthedawn Date: Sat, 2 Dec 2023 00:51:43 -0500 Subject: [PATCH] day 2 is done --- Makefile | 10 ++++ readme.md | 23 ++++++++ resources/day2.txt | 100 ++++++++++++++++++++++++++++++++ src/day2/part1.pas | 141 +++++++++++++++++++++++++++++++++++++++++++++ src/day2/part2.pas | 130 +++++++++++++++++++++++++++++++++++++++++ 5 files changed, 404 insertions(+) create mode 100644 readme.md create mode 100644 resources/day2.txt create mode 100644 src/day2/part1.pas create mode 100644 src/day2/part2.pas diff --git a/Makefile b/Makefile index fe7421e..455df21 100644 --- a/Makefile +++ b/Makefile @@ -8,5 +8,15 @@ day1part2: @echo ./build/day1part2 +day2part1: + fpc src/day2/part1.pas -obuild/day2part1 + @echo + ./build/day2part1 + +day2part2: + fpc src/day2/part2.pas -obuild/day2part2 + @echo + ./build/day2part2 + clean: rm build/* \ No newline at end of file diff --git a/readme.md b/readme.md new file mode 100644 index 0000000..557eb5c --- /dev/null +++ b/readme.md @@ -0,0 +1,23 @@ + +# hello and welcome to this + +these are the solutions to the 2023 advent of code + +i decided to challenge myself by writing all of it in pascal + +i've never written pascal before this lol + +but yeah +have fun stealing my solutions or praising me for writing the worst quality code you've ever seen + +# building/running + +every day has two parts, and it can be compiled and run with + +`make dayXpartY` + +where `X` is the day +and `y` is the part + +the compiled stuff is in build ig + diff --git a/resources/day2.txt b/resources/day2.txt new file mode 100644 index 0000000..ef98355 --- /dev/null +++ b/resources/day2.txt @@ -0,0 +1,100 @@ +Game 1: 1 green, 2 blue; 15 blue, 12 red, 2 green; 4 red, 6 blue; 10 blue, 8 red; 3 red, 12 blue; 1 green, 12 red, 8 blue +Game 2: 5 green, 2 red, 18 blue; 18 blue, 6 red, 9 green; 6 blue, 3 green; 6 green, 1 red, 9 blue; 19 blue, 2 green, 6 red +Game 3: 16 red, 10 green; 12 red, 6 blue, 9 green; 10 green, 5 blue; 10 green, 16 red; 5 red, 8 green, 8 blue +Game 4: 9 blue, 20 green; 1 red, 3 blue, 10 green; 7 blue, 18 green; 4 blue, 20 green; 8 blue, 1 green, 1 red; 1 green +Game 5: 3 green, 8 red; 1 blue, 10 red; 6 red, 4 green; 8 red, 1 blue, 3 green; 1 blue, 4 green, 3 red; 1 green, 1 blue, 4 red +Game 6: 7 green, 15 red, 11 blue; 2 red, 12 blue; 11 red, 11 green +Game 7: 14 green, 10 blue, 4 red; 3 red, 11 green, 14 blue; 1 red, 2 green, 11 blue; 9 green, 1 red; 6 red, 6 blue, 9 green +Game 8: 1 red, 6 green, 3 blue; 4 green; 4 red, 3 green, 1 blue; 2 red, 10 green, 3 blue; 2 green, 6 red, 3 blue +Game 9: 2 green, 8 red, 3 blue; 2 green, 4 blue, 2 red; 2 green, 5 blue, 2 red +Game 10: 9 green, 1 blue; 2 blue, 12 green, 3 red; 2 red, 3 blue, 1 green; 3 blue, 8 green; 4 blue, 4 red, 1 green; 5 green, 4 blue +Game 11: 5 red, 2 blue, 2 green; 3 blue, 2 green, 8 red; 6 red, 1 green +Game 12: 8 blue, 7 green; 2 green, 2 red, 7 blue; 4 green, 1 red, 20 blue; 5 green, 13 blue, 2 red +Game 13: 1 blue, 11 green, 13 red; 6 blue, 13 red, 19 green; 5 blue, 6 green, 6 red +Game 14: 12 blue, 1 red, 15 green; 16 green; 1 red, 18 blue, 15 green; 14 blue; 12 blue, 1 red, 8 green; 4 blue, 16 green +Game 15: 6 blue, 3 green; 1 red, 1 blue, 2 green; 3 green, 4 blue, 7 red +Game 16: 17 red, 14 green, 6 blue; 5 blue, 2 red; 1 blue, 11 red, 2 green; 13 green, 12 red +Game 17: 14 green, 4 red; 1 green, 5 blue, 15 red; 5 green, 14 red, 5 blue +Game 18: 8 blue, 2 green, 1 red; 12 blue, 1 green; 1 green, 1 red, 5 blue; 1 green, 1 red, 9 blue +Game 19: 1 red, 2 blue; 2 green, 5 red; 1 blue, 2 green, 11 red; 10 red; 4 green, 11 red +Game 20: 5 red, 11 green, 5 blue; 2 red, 5 blue, 7 green; 12 blue, 5 green, 10 red; 4 blue, 15 red, 10 green; 11 green, 12 blue, 7 red; 15 red, 12 blue, 5 green +Game 21: 5 blue, 6 green, 1 red; 18 blue, 13 green; 7 blue, 3 red; 9 blue, 2 red, 14 green +Game 22: 4 blue, 2 green, 19 red; 11 green, 5 blue, 17 red; 12 red, 4 blue, 13 green; 2 blue, 11 green; 1 blue, 19 red, 10 green; 8 blue, 2 green +Game 23: 12 green, 6 red; 1 blue, 1 red, 11 green; 1 blue, 3 red, 8 green; 4 green, 8 red +Game 24: 8 blue, 1 green, 6 red; 6 blue, 9 red; 8 red, 1 green, 1 blue +Game 25: 2 red, 4 blue, 1 green; 1 blue, 4 red, 2 green; 1 green, 5 blue, 1 red; 3 red, 2 blue +Game 26: 2 green, 10 blue, 5 red; 14 blue, 6 green, 12 red; 7 green, 2 red, 1 blue; 3 blue, 5 green, 3 red; 7 blue, 1 red, 3 green; 5 red, 2 green, 6 blue +Game 27: 8 blue, 2 red; 2 green, 8 blue, 6 red; 4 green, 2 red; 2 blue, 4 green, 7 red +Game 28: 8 green; 1 red, 9 blue, 10 green; 8 green, 9 blue, 2 red +Game 29: 5 red, 3 green, 2 blue; 12 red, 6 blue, 1 green; 6 red, 12 blue; 2 green, 4 blue, 5 red +Game 30: 9 red, 1 blue, 2 green; 13 green, 12 blue, 11 red; 11 red, 5 green, 9 blue; 4 blue, 12 green, 3 red; 10 red, 8 green; 2 red, 3 blue, 12 green +Game 31: 11 green, 5 red; 1 green, 4 red; 6 green, 9 red, 2 blue +Game 32: 6 blue, 3 red; 2 red, 11 blue, 4 green; 1 green, 4 red, 12 blue; 3 blue, 2 red +Game 33: 1 green, 7 red; 15 red, 15 green, 1 blue; 15 green, 3 red; 1 blue, 13 green, 6 red; 1 blue, 13 green, 20 red +Game 34: 3 red, 5 green, 1 blue; 13 green, 5 blue, 2 red; 3 red, 3 blue, 8 green; 3 blue, 1 red, 1 green; 4 blue, 3 red; 9 green, 3 red +Game 35: 6 blue, 8 green; 6 red, 9 blue, 12 green; 4 green, 3 blue; 5 red, 3 blue +Game 36: 17 green, 1 red, 1 blue; 1 red, 7 blue, 13 green; 6 blue, 5 green; 9 blue, 6 red, 5 green +Game 37: 2 green, 16 blue, 1 red; 3 red, 5 blue, 4 green; 3 green, 5 red, 2 blue +Game 38: 10 red, 3 blue, 1 green; 2 blue, 4 red; 7 red, 1 blue; 8 blue, 5 red, 11 green; 12 green, 4 blue, 8 red +Game 39: 3 blue, 3 green, 1 red; 5 green, 9 blue; 1 green, 6 blue; 5 blue, 7 green, 1 red; 9 blue, 1 green +Game 40: 1 blue, 2 red, 2 green; 2 green, 14 blue; 2 red, 6 blue; 13 blue; 2 green, 10 blue +Game 41: 1 red, 1 blue, 1 green; 11 green, 1 red; 4 green; 5 green; 1 blue, 1 red, 10 green +Game 42: 4 blue, 3 red, 2 green; 6 red, 1 blue, 6 green; 11 red, 7 blue, 3 green; 6 blue, 7 red, 1 green; 11 red, 1 green, 6 blue; 2 blue, 4 green, 10 red +Game 43: 3 red, 5 blue; 2 green, 4 red, 3 blue; 7 red, 10 blue, 13 green +Game 44: 13 green, 5 blue, 3 red; 1 green, 5 blue, 8 red; 11 green, 4 blue, 9 red; 5 blue, 7 green, 9 red +Game 45: 12 red, 9 blue, 5 green; 9 green, 3 red; 3 green, 11 blue, 15 red +Game 46: 5 blue, 2 green, 1 red; 1 blue, 3 red, 3 green; 2 green, 7 blue +Game 47: 8 red, 8 green, 5 blue; 12 blue, 8 green, 7 red; 5 red, 1 blue, 2 green; 1 red, 4 green, 6 blue; 1 red, 3 blue; 5 green, 1 red, 3 blue +Game 48: 3 blue, 2 red, 5 green; 4 green, 5 blue; 3 blue, 13 green, 5 red +Game 49: 4 red, 9 blue, 1 green; 12 red, 8 blue; 5 red, 2 blue, 1 green; 11 red, 2 green, 9 blue; 8 red, 9 blue, 3 green +Game 50: 3 blue, 2 red; 3 blue, 7 green; 4 red, 2 blue, 8 green; 7 green, 2 blue, 4 red; 3 red, 3 green; 6 green, 4 red, 2 blue +Game 51: 9 blue, 4 red, 2 green; 5 red, 3 green, 3 blue; 5 green, 10 blue, 5 red; 8 red, 11 blue, 5 green; 1 red, 3 blue, 7 green +Game 52: 1 blue, 9 red, 6 green; 8 red, 1 blue, 4 green; 13 green, 3 blue, 6 red; 3 green, 9 red; 3 blue, 12 green, 7 red +Game 53: 1 blue, 9 green; 1 red, 2 green; 7 green, 1 red +Game 54: 3 green, 3 blue, 9 red; 6 blue, 11 green, 1 red; 6 green, 1 red, 4 blue; 4 blue, 2 red, 13 green; 3 green, 1 red; 6 blue, 3 green, 8 red +Game 55: 1 blue, 6 green; 4 red, 5 green; 8 red, 12 green; 5 red, 1 blue, 7 green; 1 blue, 11 red, 3 green +Game 56: 1 green, 11 red, 1 blue; 2 green, 8 blue, 3 red; 5 blue, 6 red, 1 green +Game 57: 5 green, 3 red, 2 blue; 10 green, 12 blue, 16 red; 7 blue, 13 red, 11 green +Game 58: 5 green, 16 blue, 5 red; 9 blue, 2 green, 5 red; 5 blue, 3 red, 9 green +Game 59: 2 blue, 2 red; 7 blue, 3 green, 4 red; 2 green, 1 blue +Game 60: 12 red, 5 green, 1 blue; 2 blue, 12 red, 4 green; 16 red, 4 green, 2 blue +Game 61: 3 green, 1 blue, 6 red; 4 green, 1 blue, 8 red; 4 red, 1 blue, 1 green; 4 green, 13 red +Game 62: 2 red, 4 blue; 2 blue, 13 green, 8 red; 4 red, 9 green, 4 blue; 8 green, 3 red, 7 blue; 3 blue, 6 red, 3 green +Game 63: 1 green, 3 blue; 6 blue, 4 red, 3 green; 3 blue, 1 green, 1 red; 2 green, 2 blue, 3 red; 1 red, 2 blue; 5 red, 6 blue +Game 64: 7 red, 10 blue, 4 green; 1 green, 18 red, 2 blue; 7 blue, 2 green; 10 red, 1 green, 7 blue; 3 green, 5 blue, 11 red +Game 65: 11 red, 2 blue; 1 green, 2 blue, 1 red; 3 blue, 2 green, 3 red; 3 blue, 3 red, 7 green +Game 66: 3 red, 7 blue, 11 green; 10 blue, 4 green, 9 red; 11 blue, 11 red, 12 green; 8 red, 7 blue, 10 green; 5 red, 14 green, 3 blue +Game 67: 5 green, 1 red; 7 green, 4 blue; 3 red, 1 green, 3 blue +Game 68: 9 blue, 11 green, 10 red; 12 blue, 3 red, 3 green; 8 red, 7 green, 9 blue +Game 69: 1 green, 7 blue, 1 red; 1 red, 9 blue; 1 green, 2 red +Game 70: 9 green, 2 blue, 1 red; 1 red, 2 blue, 16 green; 13 green, 4 blue, 13 red; 8 red, 7 green, 6 blue; 12 green, 3 blue, 3 red +Game 71: 2 green, 4 red, 6 blue; 11 green, 6 blue, 2 red; 3 green, 1 blue, 5 red; 7 blue, 6 green +Game 72: 4 blue, 1 green; 4 blue; 1 green, 3 blue; 4 blue; 1 red, 4 blue; 3 blue +Game 73: 4 red, 1 green, 7 blue; 15 green, 4 blue, 17 red; 19 green, 3 blue, 11 red; 13 green, 5 blue, 1 red; 10 blue, 13 green, 17 red +Game 74: 9 green, 2 blue, 18 red; 5 red, 8 green; 3 green, 4 blue, 3 red; 5 green, 3 blue +Game 75: 1 red, 10 blue, 1 green; 2 red, 19 blue; 4 red, 10 blue; 3 red, 7 blue, 1 green; 2 red, 3 blue +Game 76: 4 green, 9 red, 7 blue; 8 green, 7 blue; 12 green, 9 red +Game 77: 1 red, 6 blue, 2 green; 8 red, 5 green, 4 blue; 4 blue, 2 red, 3 green +Game 78: 9 blue, 1 red, 8 green; 2 green, 9 blue; 2 green, 9 blue +Game 79: 4 blue, 4 green, 1 red; 4 blue, 4 red, 4 green; 4 green, 1 blue, 6 red; 6 green; 6 red +Game 80: 13 red, 8 blue; 2 green, 14 red, 13 blue; 7 red, 9 blue; 11 red, 18 blue; 2 blue, 3 red, 1 green +Game 81: 2 green, 9 red, 12 blue; 5 green, 5 red, 13 blue; 5 blue, 5 red; 2 red, 8 blue +Game 82: 6 red, 15 green; 1 blue, 15 red, 13 green; 6 green, 1 blue, 1 red; 5 red, 6 green, 1 blue +Game 83: 1 green; 1 blue, 1 green, 10 red; 7 red, 1 blue; 1 green, 11 red; 2 blue, 1 green, 3 red +Game 84: 17 green, 8 red; 1 blue, 14 green, 2 red; 6 red, 1 blue, 6 green; 4 red, 10 green, 1 blue; 2 red, 2 blue, 1 green; 4 blue, 5 green, 3 red +Game 85: 5 blue, 3 red; 1 blue, 1 green; 6 green, 1 blue, 1 red; 4 green, 2 blue, 7 red +Game 86: 7 red, 3 blue, 4 green; 1 blue, 13 red; 3 red, 3 blue, 6 green; 1 blue, 1 green, 17 red; 8 blue, 13 red, 4 green; 6 blue, 4 green, 17 red +Game 87: 10 red, 3 green, 4 blue; 12 green, 10 red, 3 blue; 2 green, 16 red; 16 red, 3 blue, 14 green; 14 green, 11 red, 1 blue; 9 red, 4 blue, 6 green +Game 88: 7 green, 4 red, 19 blue; 1 green, 5 red, 18 blue; 19 blue, 3 green, 6 red; 9 green, 14 blue, 5 red; 3 green, 5 red +Game 89: 4 red, 2 blue, 10 green; 6 blue, 5 red; 3 green, 4 blue, 1 red; 12 green, 2 red, 2 blue; 3 blue, 3 green, 3 red +Game 90: 1 green, 19 red, 1 blue; 7 blue, 4 green, 10 red; 6 blue, 3 green, 13 red +Game 91: 1 green, 9 blue; 7 green, 4 red, 3 blue; 6 green, 2 red, 8 blue; 1 red, 1 blue; 3 red, 2 green +Game 92: 18 red, 2 green, 2 blue; 6 blue, 4 red, 6 green; 3 blue, 10 red; 8 blue, 2 green, 7 red +Game 93: 13 blue, 3 green, 15 red; 14 red, 2 green, 7 blue; 1 blue, 4 green, 13 red; 19 red, 5 green +Game 94: 6 blue; 5 green, 8 blue; 1 red, 9 blue; 1 red, 8 blue; 5 green, 6 blue; 1 red +Game 95: 9 blue, 14 green; 2 green, 1 red, 1 blue; 1 red, 3 green, 2 blue; 6 green, 1 red; 1 red, 8 blue, 14 green; 1 green, 5 blue +Game 96: 7 blue, 17 green; 19 green, 3 red, 2 blue; 6 green, 2 red, 2 blue; 3 blue, 16 green; 3 red, 20 green; 4 green, 2 blue +Game 97: 1 green, 1 red, 1 blue; 4 red, 2 blue; 7 red; 6 red; 7 red +Game 98: 2 red, 15 green; 10 green, 1 red; 1 red, 11 blue, 11 green; 13 blue, 8 green, 2 red; 1 red, 12 green, 7 blue +Game 99: 14 red, 2 blue, 1 green; 3 green, 13 red, 9 blue; 9 red, 9 blue, 2 green; 13 red, 7 green, 5 blue; 5 blue, 3 green, 11 red +Game 100: 1 blue, 1 red, 1 green; 8 blue, 1 green; 1 green, 7 blue, 1 red; 1 green, 4 blue, 1 red; 1 green, 3 blue diff --git a/src/day2/part1.pas b/src/day2/part1.pas new file mode 100644 index 0000000..3fb6b3b --- /dev/null +++ b/src/day2/part1.pas @@ -0,0 +1,141 @@ +program day2part2; + +var +file_: text; +str: string; +sum, game: int32; +state: int32; +number: int32; + +i: int32; +c: char; + +red_limit: int32 = 12; +green_limit: int32 = 13; +blue_limit: int32 = 14; + +(* Here the main program block starts *) +begin + { open inp.txt for reading } + assign(file_, 'resources/day2.txt'); + reset(file_); + + { initialize sum and count to 0 } + game := 0; + sum := 0; + + { until the file is empty } + while not eof(file_) do + begin + + { increment game counter } + game := game + 1; + + { assume this game is fine and valid } + sum := sum + game; + + { read a line from the file } + readln(file_, str); + + { state of current searching } + state := 0; + { 0 = initial, going to colon -> 1} + { 1 = wasting a space, resetting number -> 2} + { 2 = searching for number -> 3} + { 3 = checking color -> 4 } + { 4 = waiting for space -> 2} + + + for c in str do + begin + + { holy case statement. } + + case state of + {seeking to first colon} + 0: + begin + {colon, move to state 1} + if (c = ':') then + state := 1 + end; + {wasting a space} + 1: + begin + {move to state 2, initialize number} + state := 2; + number := 0; + end; + {reading number} + 2: + begin + {if number} + if (('0' <= c) and (c <= '9')) then + begin + {add number to number} + val(c, i); + number := number * 10 + i; + end; + {at the end move to state 3} + if (c = ' ') then + state := 3 + end; + {check color} + 3: + begin + {check red} + if (c = 'r') then + begin + {if there's too many} + if (number > red_limit) then + begin + {set this game as invalid and break} + sum := sum - game; + break; + end; + end; + + {check blue} + if (c = 'b') then + begin + {if there's too many} + if (number > blue_limit) then + begin + {set this game as invalid and break} + sum := sum - game; + break; + end; + end; + + {check green} + if (c = 'g') then + begin + {if there's too many} + if (number > green_limit) then + begin + {set this game as invalid and break} + sum := sum - game; + break; + end; + end; + + {if we're still here, move to state 4} + state := 4; + end; + {wait for a space} + 4: + begin + if (c = ' ') then + begin + {reset number and go back to state 2} + number := 0; + state := 2; + end; + end; + end; + end; + end; + + { print out that beautiful sum } + writeln(sum); +end. \ No newline at end of file diff --git a/src/day2/part2.pas b/src/day2/part2.pas new file mode 100644 index 0000000..06316fd --- /dev/null +++ b/src/day2/part2.pas @@ -0,0 +1,130 @@ +program day2part2; + +var +file_: text; +str: string; +sum: int32; +state: int32; +number: int32; + +i: int32; +c: char; + +rcount, gcount, bcount: int32; + +(* Here the main program block starts *) +begin + { open inp.txt for reading } + assign(file_, 'resources/day2.txt'); + reset(file_); + + { initialize sum to 0 } + sum := 0; + + { until the file is empty } + while not eof(file_) do + begin + + + { read a line from the file } + readln(file_, str); + + { state of current searching } + state := 0; + { 0 = initial, going to colon -> 1} + { 1 = wasting a space, resetting number -> 2} + { 2 = searching for number -> 3} + { 3 = checking color -> 4 } + { 4 = waiting for space -> 2} + + { initialize counts to zero } + rcount := 0; + bcount := 0; + gcount := 0; + + + for c in str do + begin + + { holy case statement. } + + case state of + {seeking to first colon} + 0: + begin + {colon, move to state 1} + if (c = ':') then + state := 1 + end; + {wasting a space} + 1: + begin + {move to state 2, initialize number} + state := 2; + number := 0; + end; + {reading number} + 2: + begin + {if number} + if (('0' <= c) and (c <= '9')) then + begin + {add number to number} + val(c, i); + number := number * 10 + i; + end; + {at the end move to state 3} + if (c = ' ') then + state := 3 + end; + {update color} + 3: + begin + {check red} + if (c = 'r') then + begin + {update red if it's max} + if (number > rcount) then + rcount := number + end; + + {check blue} + if (c = 'b') then + begin + {update blue if it's max} + if (number > bcount) then + bcount := number + end; + + {check green} + if (c = 'g') then + begin + {update green if it's max} + if (number > gcount) then + gcount := number + end; + + {if we're still here, move to state 4} + state := 4; + end; + {wait for a space} + 4: + begin + if (c = ' ') then + begin + {reset number and go back to state 2} + number := 0; + state := 2; + end; + end; + end; + end; + + { increase sum } + sum := sum + rcount * bcount * gcount; + + end; + + { print out that beautiful sum } + writeln(sum); +end. \ No newline at end of file