mirror of
https://github.com/plasmaofthedawn/2023adventofcode.git
synced 2024-10-18 08:16:25 -05:00
day 2 is done
This commit is contained in:
parent
c306b6b200
commit
96133fbe4f
10
Makefile
10
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/*
|
23
readme.md
Normal file
23
readme.md
Normal file
@ -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
|
||||
|
100
resources/day2.txt
Normal file
100
resources/day2.txt
Normal file
@ -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
|
141
src/day2/part1.pas
Normal file
141
src/day2/part1.pas
Normal file
@ -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.
|
130
src/day2/part2.pas
Normal file
130
src/day2/part2.pas
Normal file
@ -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.
|
Loading…
Reference in New Issue
Block a user