Advent of Code 2023

Es gibt 103 Antworten in diesem Thema. Der letzte Beitrag () ist von nogood.

    Advent of Code 2023

    ... es ist schon wieder ein Jahr vorbei.

    @Elanda wo ist der AoC Thread für 2023?

    Der Coder Adventskalender ist aufgehangen morgen gehts los. Falls Ihr Lust hab jeden Tag ein klein wenig zu Coden ... meldet euch beim adventofcode an.
    Jeden Tag ein ein zweiteiliges Codepuzzel.

    Letztes Jahr musste ich um Tag 10 die Segel streichen.

    Ich erinnere noch, dass es spannend war die vielen Lösungswege zu sehen. Falls Ihr Lust habt mit zu machen, postet doch Euren Code hier im Thread.

    Als Beispiel besucht den Thread von @Elanda vom letzten Jahr.

    Hyperlink-Formatfehler korrigiert ~VaporiZed
    codewars.com Rank: 4 kyu

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Hey,

    ja ich bin auch wieder dabei. Ich hab tatsächlich letztes Jahr alle Tage gemacht aber glaub ich irgendwann aufgehört zu posten.
    Eventuell schaff ich es ja dieses Jahr alle Lösungen zu posten.

    Allen die mitmachen viel Spaß dabei !
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    Day 1 2023

    Part 1

    C#-Quellcode

    1. private static void Part01()
    2. {
    3. // LINQ-Version
    4. //var result = Source().Select(line =>
    5. // line.Where(s => int.TryParse(s.ToString(), out _)))
    6. // .Select(line => line.First().ToString() + line.Last().ToString())
    7. // .Sum(int.Parse);
    9. var src = Source();
    10. var result = new List<int>();
    11. string snumber = string.Empty;
    13. foreach (var tmp in src)
    14. {
    15. snumber = string.Empty;
    16. var calibrations = tmp.ToArray();
    17. foreach (var value in calibrations)
    18. if (int.TryParse($"{value}", out var number))
    19. {
    20. snumber += number.ToString();
    21. break;
    22. }
    24. Array.Reverse(calibrations);
    26. foreach (var value in calibrations)
    27. if (int.TryParse($"{value}", out var number))
    28. {
    29. snumber += number.ToString();
    30. break;
    31. }
    32. result.Add(int.Parse(snumber));
    33. }
    34. Console.WriteLine($"{nameof(Part01)}: {result.Sum()}");

    Source

    C#-Quellcode

    1. private static string[] Source() =>
    2. [
    3. "1abc2",
    4. "pqr3stu8vwx",
    5. "a1b2c3d4e5f",
    6. "treb7uchet",
    7. ];


    Part 2

    C#-Quellcode

    1. ​private static void Part02()
    2. {
    3. var result = new List<int>();
    4. var numbers = new []
    5. {
    6. "one", "two", "three", "four",
    7. "five", "six", "seven", "eight", "nine"
    8. };
    10. foreach (var tmp in Source2())
    11. {
    12. var idx = -1;
    13. var str = string.Empty;
    14. var calibrations = tmp;
    15. var snumber = string.Empty;
    16. foreach (var value in calibrations)
    17. {
    18. idx++;
    19. str = value switch
    20. {
    21. var chr when chr is >= '0' and <= '9' => (chr - '0').ToString(),
    22. 'o' when idx + numbers[0].Length <= calibrations.Length && calibrations[idx..(idx + numbers[0].Length)] == numbers[0] => 1.ToString(),
    23. 't' when idx + numbers[1].Length <= calibrations.Length && calibrations[idx..(idx + numbers[1].Length)] == numbers[1] => 2.ToString(),
    24. 't' when idx + numbers[2].Length <= calibrations.Length && calibrations[idx..(idx + numbers[2].Length)] == numbers[2] => 3.ToString(),
    25. 'f' when idx + numbers[3].Length <= calibrations.Length && calibrations[idx..(idx + numbers[3].Length)] == numbers[3] => 4.ToString(),
    26. 'f' when idx + numbers[4].Length <= calibrations.Length && calibrations[idx..(idx + numbers[4].Length)] == numbers[4] => 5.ToString(),
    27. 's' when idx + numbers[5].Length <= calibrations.Length && calibrations[idx..(idx + numbers[5].Length)] == numbers[5] => 6.ToString(),
    28. 's' when idx + numbers[6].Length <= calibrations.Length && calibrations[idx..(idx + numbers[6].Length)] == numbers[6] => 7.ToString(),
    29. 'e' when idx + numbers[7].Length <= calibrations.Length && calibrations[idx..(idx + numbers[7].Length)] == numbers[7] => 8.ToString(),
    30. 'n' when idx + numbers[8].Length <= calibrations.Length && calibrations[idx..(idx + numbers[8].Length)] == numbers[8] => 9.ToString(),
    31. _ => str,
    32. };
    33. if (snumber == string.Empty)
    34. snumber += str;
    35. }
    36. snumber += str;
    37. result.Add(int.Parse(snumber));
    38. }
    39. Console.WriteLine($"{nameof(Part02)}: {result.Sum()}");
    40. }

    Source
    ​

    C#-Quellcode

    1. private static string[] Source2() =>
    2. [
    3. "two1nine",
    4. "eightwothree",
    5. "abcone2threexyz",
    6. "xtwone3four",
    7. "4nineeightseven2",
    8. "zoneight234",
    9. "7pqrstsixteen",
    10. ];​
    ​

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „exc-jdbi“ () aus folgendem Grund: Part 2 hinzugesetzt

    Hab noch nie teilgenommen, daher kenn ich die Codeanforderungen/Rahmenbedingungen nicht.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub CalculateSumOfCalibratingValuesFrom(RawText As String)
    2. Dim SumOfCalibratingValues = GetSumOfCalibratingValues(GetCalibratingValuesFrom(RawText))
    3. End Sub
    5. Private Function GetSumOfCalibratingValues(CalibratingValues As IEnumerable(Of Integer)) As Integer
    6. Return CalibratingValues.Sum
    7. End Function
    9. Private Function GetCalibratingValuesFrom(RawText As String) As IEnumerable(Of Integer)
    10. Dim DocumentLines = RawText.Split({Environment.NewLine}, StringSplitOptions.None)
    11. Return DocumentLines.Select(Function(x) GetCalibratingValueIn(x))
    12. End Function
    14. Private Function GetCalibratingValueIn(DocumentLine As String) As Integer
    15. Dim PositionOfFirstDigit = DocumentLine.IndexOfAny("0123456789".ToArray)
    16. Dim PositionOfLastDigit = DocumentLine.LastIndexOfAny("0123456789".ToArray)
    17. Return Integer.Parse($"{DocumentLine(PositionOfFirstDigit)}{DocumentLine(PositionOfLastDigit)}")
    18. End Function
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    Es gibt keine Anforderungen. Jeder macht es so wie er es für richtig hält.
    Ich nutze das oft um mal auch Dinge zu nutzen die ich nicht jeden Tag nutze.

    Part 1 und 2:
    Spoiler anzeigen

    geht sicher kürzer und besser mit LINQ aber ich nutze LINQ oft und wollte hier mal direkt ohne LINQ arbeiten.
    Dictionarys benutze ich fast nie sowie den StringBuilder.

    C#-Quellcode

    1. using System.Text;
    2. using System.Text.RegularExpressions;
    4. namespace Tag01
    5. {
    6. internal class Program
    7. {
    8. public static List<string> digits = new List<string>() { "1", "2", "3", "4", "5", "6", "7", "8", "9", "one", "two", "three", "four", "five", "six", "seven" , "eight", "nine" };
    9. static void Main(string[] args)
    10. {
    11. string[] exampleFile = File.ReadAllLines("Example.txt");
    12. string[] exampleFile2 = File.ReadAllLines("Example2.txt");
    13. string[] inputFile = File.ReadAllLines("Input.txt");
    15. Console.WriteLine($"Example: {Calculate(exampleFile)}");
    16. Console.WriteLine($"Example2: {Calculate(exampleFile2, true)}");
    17. Console.WriteLine($"Input Part 1: {Calculate(inputFile)}");
    18. Console.WriteLine($"Input Part 2: {Calculate(inputFile, true)}");
    19. }
    21. static int Calculate(string[] lines, bool p2 = false) {
    22. int sum = 0;
    23. foreach (string line in lines)
    24. {
    25. string cleaned = line;
    26. if (p2)
    27. {
    28. cleaned = ReplaceTextDigitsToDigits(cleaned);
    29. }
    30. cleaned = Regex.Replace(cleaned, "[^0-9]", "");
    31. StringBuilder sb = new StringBuilder();
    32. if (cleaned.Length > 0)
    33. {
    34. sb.Append(cleaned[0].ToString());
    35. sb.Append(cleaned[cleaned.Length - 1].ToString());
    36. int finalNumber = Int32.Parse(sb.ToString());
    37. sum += finalNumber;
    38. }
    39. }
    40. return sum;
    41. }
    43. static string ReplaceTextDigitsToDigits(string line)
    44. {
    45. Dictionary<int, string> dic = new Dictionary<int, string>();
    46. foreach (string digit in digits)
    47. {
    48. int index = line.IndexOf(digit);
    49. while(index != -1)
    50. {
    51. dic.Add(index, digit);
    52. index = line.IndexOf(digit, index + 1);
    53. }
    54. }
    55. StringBuilder sb = new StringBuilder();
    56. foreach (var d in dic.OrderBy(x => x.Key))
    57. {
    58. sb.Append(d.Value.ToString());
    59. sb.Replace("one", "1");
    60. sb.Replace("two", "2");
    61. sb.Replace("three", "3");
    62. sb.Replace("four", "4");
    63. sb.Replace("five", "5");
    64. sb.Replace("six", "6");
    65. sb.Replace("seven", "7");
    66. sb.Replace("eight", "8");
    67. sb.Replace("nine", "9");
    68. }
    69. return sb.ToString();
    70. }
    71. }
    72. }
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    Oh, Teil 2 gibt es ja auch noch. Muss mal schauen, ob ich mich dort anmelde, um den Zugang zur Aufgabe zu bekommen.

    ##########

    03.12.: Teil 2
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Replacements As IEnumerable(Of (Word As String, DigitCharacter As Char)) = {("one", "1"c), ("two", "2"c), ("three", "3"c), ("four", "4"c), ("five", "5"c), ("six", "6"c), ("seven", "7"c), ("eight", "8"c), ("nine", "9"c)}
    3. Private Sub ShowSumOfCalibratingValuesFrom(RawText As String)
    4. MessageBox.Show(GetSumOfCalibratingValues(GetCalibratingValuesFrom(RawText)).ToString)
    5. End Sub
    7. Private Function GetSumOfCalibratingValues(CalibratingValues As IEnumerable(Of Integer)) As Integer
    8. Return CalibratingValues.Sum
    9. End Function
    11. Private Function GetCalibratingValuesFrom(RawText As String) As IEnumerable(Of Integer)
    12. Dim DocumentLines = RawText.Split({Environment.NewLine}, StringSplitOptions.None)
    13. Return DocumentLines.Select(Function(x) GetCalibratingValueIn(x))
    14. End Function
    16. Private Function GetCalibratingValueIn(DocumentLine As String) As Integer
    17. Dim FirstDigitCharacter = GetFirstDigitCharacterIn(DocumentLine)
    18. Dim LastDigitCharacter = GetLastDigitCharacterIn(DocumentLine)
    19. Return Integer.Parse($"{FirstDigitCharacter}{LastDigitCharacter}")
    20. End Function
    22. Private Function GetFirstDigitCharacterIn(DocumentLine As String) As Char
    23. Dim IndexOfFirstDigitCharacter = Integer.MaxValue
    24. Dim FirstDigitCharacter As Char
    26. For Each Replacement In Replacements
    27. Dim IndexOfFirstDigitAsWord = DocumentLine.IndexOf(Replacement.Word)
    28. Dim IndexOfFirstDigitAsCharacter = DocumentLine.IndexOf(Replacement.DigitCharacter)
    29. Dim LowestMatchIndex = If(IndexOfFirstDigitAsWord > -1 AndAlso IndexOfFirstDigitAsCharacter > -1, Math.Min(IndexOfFirstDigitAsWord, IndexOfFirstDigitAsCharacter), Math.Max(IndexOfFirstDigitAsWord, IndexOfFirstDigitAsCharacter))
    30. If LowestMatchIndex > -1 AndAlso (LowestMatchIndex < IndexOfFirstDigitCharacter) Then IndexOfFirstDigitCharacter = LowestMatchIndex : FirstDigitCharacter = Replacement.DigitCharacter
    31. Next
    32. If FirstDigitCharacter = Microsoft.VisualBasic.vbNullChar Then Stop
    33. Return FirstDigitCharacter
    34. End Function
    36. Private Function GetLastDigitCharacterIn(DocumentLine As String) As Char
    37. Dim IndexOfLastDigitCharacter = -1
    38. Dim LastDigitCharacter As Char
    40. For Each Replacement In Replacements
    41. Dim IndexOfLastDigitAsWord = DocumentLine.LastIndexOf(Replacement.Word)
    42. Dim IndexOfLastDigitAsCharacter = DocumentLine.LastIndexOf(Replacement.DigitCharacter)
    43. Dim HighestMatchIndex = Math.Max(IndexOfLastDigitAsWord, IndexOfLastDigitAsCharacter)
    44. If HighestMatchIndex > -1 AndAlso HighestMatchIndex > IndexOfLastDigitCharacter Then IndexOfLastDigitCharacter = HighestMatchIndex : LastDigitCharacter = Replacement.DigitCharacter
    45. Next
    46. If LastDigitCharacter = Microsoft.VisualBasic.vbNullChar Then Stop
    47. Return LastDigitCharacter
    48. End Function

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Part 1
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim input = IO.File.ReadAllLines(FilePathOfDataPart1)
    2. Dim resultPart1 = input.Sum(Function(line) 10 * Integer.Parse(line.First(Function(c) Char.IsDigit(c))) + Integer.Parse(line.Last(Function(c) Char.IsDigit(c))))


    Part 2 hab ich wohl nicht verstanden, ist dieselbe Lösung, nachdem die Zahlen umgewandelt worden sind. Aber scheinbar falsch
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim SuperDigits As New Dictionary(Of String, String) From {
    2. {"twone", "21"},
    3. {"eightwo", "82"},
    4. {"oneight", "18"},
    5. {"one", "1"},
    6. {"two", "2"},
    7. {"three", "3"},
    8. {"four", "4"},
    9. {"five", "5"},
    10. {"six", "6"},
    11. {"seven", "7"},
    12. {"eight", "8"},
    13. {"nine", "9"}}
    14. Dim input = IO.File.ReadAllLines(FilePathOfDataPart1)
    15. For i = 0 To input.Length - 1
    16. For Each d In SuperDigits
    17. input(i) = input(i).Replace(d.Key, d.Value)
    18. Next
    19. Next
    20. Dim result = input.Sum(Function(line) 10 * Integer.Parse(line.First(Function(c) Char.IsDigit(c))) + Integer.Parse(line.Last(Function(c) Char.IsDigit(c))))

    Dieser Beitrag wurde bereits 13 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Hi hi,
    ich bin auch wieder dabei, so lange ich mir Zeit für die Aufgaben nehmen kann :)

    Tag 1
    Spoiler anzeigen
    ​

    C#-Quellcode

    1. ​using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day1\input.txt");
    2. using StreamReader sr = new(fs);
    4. int total = 0;
    5. string[] numberWords = ["one", "two", "three", "four", "five", "six", "seven", "eight", "nine"];
    7. while (!sr.EndOfStream)
    8. {
    9. ReadOnlySpan<char> lineSpan = sr.ReadLine().AsSpan();
    10. char[] numbers = Array.Empty<char>();
    12. #region Part1
    13. for (int i = 0; i < lineSpan.Length; ++i)
    14. {
    15. if ((lineSpan[i] >= 48) && (lineSpan[i] <= 57))
    16. {
    17. numbers[0] = lineSpan[i];
    18. break;
    19. }
    20. }
    22. for (int i = lineSpan.Length - 1; i >= 0; --i)
    23. {
    24. if ((lineSpan[i] >= 48) && (lineSpan[i] <= 57))
    25. {
    26. numbers[1] = lineSpan[i];
    27. break;
    28. }
    29. }
    30. #endregion
    32. #region Part2
    33. Dictionary<int, char> numberBuffer = new();
    34. for (int i = 0; i < lineSpan.Length; ++i)
    35. {
    36. if ((lineSpan[i] >= 48) && (lineSpan[i] <= 57))
    37. {
    38. numberBuffer.Add(i, lineSpan[i]);
    39. }
    40. }
    42. foreach (var word in numberWords)
    43. {
    44. for (int i = 0; i <= lineSpan.Length - word.Length; ++i)
    45. {
    46. ReadOnlySpan<char> current = lineSpan[i..(i + word.Length)];
    47. if (current.ToString() == word)
    48. {
    49. char number = current switch
    50. {
    51. "one" => '1',
    52. "two" => '2',
    53. "three" => '3',
    54. "four" => '4',
    55. "five" => '5',
    56. "six" => '6',
    57. "seven" => '7',
    58. "eight" => '8',
    59. "nine" => '9',
    60. _ => '0'
    61. };
    62. numberBuffer.Add(i, number);
    63. }
    64. }
    65. }
    67. int minIndex = numberBuffer.Min(e => e.Key);
    68. int maxIndex = numberBuffer.Max(e => e.Key);
    69. numbers = [GetNumberCharFromStringIndex(numberBuffer, minIndex), GetNumberCharFromStringIndex(numberBuffer, maxIndex)];
    71. #endregion
    73. total += int.Parse(numbers);
    74. }
    76. Console.WriteLine(total);
    78. char GetNumberCharFromStringIndex(Dictionary<int, char> numberBuffer, int index) => (from no in numberBuffer
    79. where no.Key == index
    80. select no.Value).First();

    Tag1
    Junge für Tag eins hatte ich etwas leichteres erwartet. Oder meine Erinnerung täuscht mich vom letzten Jahr.
    Tag1 Part 1 u. 2 C# (Dauer ca. 3 Std. (Part1 15 Min)). Erst hatte ich eine sexy Lösung, jedoch mit falschem Ergebnis. Match die WordNummern und füge die Int-Zahl davor in den String ein. Leider erkennt er dann z.B. nicht mehr "eightwothree" -> eigh2two3three. Da 'two' den Match mit eight kaputt macht.

    Spoiler anzeigen

    C#-Quellcode

    1. using System.Text.RegularExpressions;
    2. var Part1 = false;
    4. if (Part1)
    5. {
    6. //Part1
    7. var input = File.ReadAllLines("AoC_D1.txt");
    8. var sum = 0;
    9. foreach (var line in input)
    10. {
    11. var firstDigit = Regex.Matches(line, @"[0-9]");
    12. sum += Int32.Parse(firstDigit.First().Value + firstDigit.Last().Value);
    13. }
    14. Console.WriteLine(sum);
    15. }
    16. else
    17. {
    18. //Part2
    19. var input = File.ReadAllLines("AoC_D1.txt").ToList();
    20. var sum = 0;
    22. string[] wordNrs = ["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"];
    23. Dictionary<int, string> posIndex_Nr = new();
    25. foreach (var line in input)
    26. {
    27. posIndex_Nr.Clear();
    28. for (int i = 0; i < wordNrs.Length; i++)
    29. {//iterate over all 'zero', 'one', ... words in each Line if Match is found add to Dictionary the IndexPosition of the Match (Position of first Letter of Match)
    30. //e.g. two1nine -> Add("0","2")
    31. var wordNrMatches = Regex.Matches(line, wordNrs[i]);
    32. foreach (Match nrMatch in wordNrMatches.Cast<Match>())
    33. {
    34. posIndex_Nr.Add(nrMatch.Index, i.ToString());
    35. }
    36. }
    37. var digits = Regex.Matches(line, @"[0-9]");
    38. foreach (Match nrMatch in digits.Cast<Match>())
    39. {//match all regular digits and also add the position of the match
    40. //e.g. two1nine -> Add("3","1")
    41. posIndex_Nr.Add(nrMatch.Index, nrMatch.Value);
    42. }
    43. //sort Dictionary by Key Posion Int -> then first & last
    44. var PositionSortedDictionary = posIndex_Nr.OrderBy(x => x.Key);
    45. var first = PositionSortedDictionary.First().Value;
    46. var last = PositionSortedDictionary.Last().Value;
    47. sum += Int32.Parse(first + last);
    48. }
    49. Console.WriteLine(sum);
    50. }
    codewars.com Rank: 4 kyu

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „nogood“ ()

    Moin moin,
    hier ist Tag02 einmal komplett:

    Da nogood auch gepostet hat wielange er gebraucht hat mach ich das mal ab jetzt auch.
    Beides zusammen ca. 14 Minuten wenn ich vom Projekterstelldatum ausgehe.

    Spoiler anzeigen

    C#-Quellcode

    1. using System.Collections.Concurrent;
    3. namespace Tag02
    4. {
    5. internal class Program
    6. {
    7. public static Dictionary<string, int> bag = new Dictionary<string, int>
    8. {
    9. { "red", 12 },
    10. { "green", 13 },
    11. { "blue", 14 }
    12. };
    13. static void Main(string[] args)
    14. {
    16. string[] exampleFile = File.ReadAllLines("Example.txt");
    17. string[] inputFile = File.ReadAllLines("Input.txt");
    19. Console.WriteLine($"Example: {CalculateP1(exampleFile)}");
    20. Console.WriteLine($"Example2: {CalculateP2(exampleFile)}");
    21. Console.WriteLine($"Input Part 1: {CalculateP1(inputFile)}");
    22. Console.WriteLine($"Input Part 2: {CalculateP2(inputFile)}");
    24. }
    25. static int CalculateP1(string[] lines)
    26. {
    27. int sum = 0;
    28. foreach (var line in lines)
    29. {
    30. bool gamePlayable = true;
    31. string[] gameLine = line.Split(':');
    32. int gameNumber = Int32.Parse(gameLine[0].Replace("Game ", ""));
    33. string[] gameSets = gameLine[1].Split(";");
    34. foreach (var gameSet in gameSets)
    35. {
    36. if (!gamePlayable) continue;
    37. string[] cubes = gameSet.Split(',');
    38. foreach (var cube in cubes)
    39. {
    40. if (!gamePlayable) continue;
    41. string[] splitted = cube.Trim().Split(' ');
    42. int cubeCount = Int32.Parse(splitted[0]);
    43. string cubeColor = splitted[1];
    45. if (bag.ContainsKey(cubeColor))
    46. {
    47. int bagColorCount = bag[cubeColor];
    48. if(cubeCount > bagColorCount)
    49. {
    50. gamePlayable = false;
    52. }
    53. }
    54. }
    55. }
    56. if (gamePlayable) sum += gameNumber;
    57. }
    58. return sum;
    59. }
    61. static int CalculateP2(string[] lines)
    62. {
    63. int sum = 0;
    64. foreach (var line in lines)
    65. {
    66. Dictionary<string, int> highestCubes = new Dictionary<string, int>();
    67. int gamePower = 1;
    68. string[] gameLine = line.Split(':');
    69. int gameNumber = Int32.Parse(gameLine[0].Replace("Game ", ""));
    70. string[] gameSets = gameLine[1].Split(";");
    71. foreach (var gameSet in gameSets)
    72. {
    73. string[] cubes = gameSet.Split(',');
    74. foreach (var cube in cubes)
    75. {
    76. string[] splitted = cube.Trim().Split(' ');
    77. int cubeCount = Int32.Parse(splitted[0]);
    78. string cubeColor = splitted[1].Trim();
    80. if (highestCubes.ContainsKey(cubeColor))
    81. {
    82. int bagColorCount = highestCubes[cubeColor];
    83. if (cubeCount > bagColorCount)
    84. {
    85. highestCubes[cubeColor] = cubeCount;
    86. }
    87. } else
    88. {
    89. highestCubes[cubeColor] = cubeCount;
    90. }
    91. }
    92. }
    93. foreach (var cube in highestCubes)
    94. {
    95. gamePower *= cube.Value;
    96. }
    97. sum += gamePower;
    98. }
    99. return sum;
    100. }
    101. }
    102. }


    Wer nur Part 1 / Part 2 sehen will:

    Part01:
    Spoiler anzeigen

    lines ist immer ReadAllLines(inputFile)

    C#-Quellcode

    1. static int CalculateP1(string[] lines)
    2. {
    3. int sum = 0;
    4. foreach (var line in lines)
    5. {
    6. bool gamePlayable = true;
    7. string[] gameLine = line.Split(':');
    8. int gameNumber = Int32.Parse(gameLine[0].Replace("Game ", ""));
    9. string[] gameSets = gameLine[1].Split(";");
    10. foreach (var gameSet in gameSets)
    11. {
    12. if (!gamePlayable) continue;
    13. string[] cubes = gameSet.Split(',');
    14. foreach (var cube in cubes)
    15. {
    16. if (!gamePlayable) continue;
    17. string[] splitted = cube.Trim().Split(' ');
    18. int cubeCount = Int32.Parse(splitted[0]);
    19. string cubeColor = splitted[1];
    21. if (bag.ContainsKey(cubeColor))
    22. {
    23. int bagColorCount = bag[cubeColor];
    24. if(cubeCount > bagColorCount)
    25. {
    26. gamePlayable = false;
    28. }
    29. }
    30. }
    31. }
    32. if (gamePlayable) sum += gameNumber;
    33. }
    34. return sum;
    35. }


    Part02:
    Spoiler anzeigen

    lines ist immer ReadAllLines(inputFile)

    C#-Quellcode

    1. static int CalculateP2(string[] lines)
    2. {
    3. int sum = 0;
    4. foreach (var line in lines)
    5. {
    6. Dictionary<string, int> highestCubes = new Dictionary<string, int>();
    7. int gamePower = 1;
    8. string[] gameLine = line.Split(':');
    9. int gameNumber = Int32.Parse(gameLine[0].Replace("Game ", ""));
    10. string[] gameSets = gameLine[1].Split(";");
    11. foreach (var gameSet in gameSets)
    12. {
    13. string[] cubes = gameSet.Split(',');
    14. foreach (var cube in cubes)
    15. {
    16. string[] splitted = cube.Trim().Split(' ');
    17. int cubeCount = Int32.Parse(splitted[0]);
    18. string cubeColor = splitted[1].Trim();
    20. if (highestCubes.ContainsKey(cubeColor))
    21. {
    22. int bagColorCount = highestCubes[cubeColor];
    23. if (cubeCount > bagColorCount)
    24. {
    25. highestCubes[cubeColor] = cubeCount;
    26. }
    27. } else
    28. {
    29. highestCubes[cubeColor] = cubeCount;
    30. }
    31. }
    32. }
    33. foreach (var cube in highestCubes)
    34. {
    35. gamePower *= cube.Value;
    36. }
    37. sum += gamePower;
    38. }
    39. return sum;
    40. }
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    Day 2 2023

    Part 1

    C#-Quellcode

    1. private static void Part01()
    2. {
    3. var comparison = new[]
    4. {
    5. ("blue", 14), ("red", 12), ("green", 13)
    6. }.ToDictionary();
    8. var result = new List<int>();
    9. var src = Source();
    10. for (var i = 0; i < src.Length; i++)
    11. {
    12. var flag = true;
    13. for (var j = 1; j < src[i].Length; j++)
    14. for (var k = 1; k < src[i][j].Length; k += 2)
    15. if (comparison[src[i][j][k]] < int.Parse(src[i][j][k - 1]))
    16. { flag = false; break; };
    17. if (flag) result.Add(i + 1);
    18. }
    19. Console.WriteLine($"{nameof(Part01)}: {result.Sum()}");
    20. }

    Part 2

    C#-Quellcode

    1. private static void Part01()
    2. {
    4. var src = Source();
    5. var comparison = new[]
    6. {
    7. ("blue", 0), ("red", 0), ("green", 0)
    8. }.ToDictionary();
    10. var result = new List<int>();
    11. for (var i = 0; i < src.Length; i++)
    12. {
    13. var comp = comparison.ToDictionary(entry => entry.Key, entry => entry.Value);
    14. for (var j = 1; j < src[i].Length; j++)
    15. for (var k = 1; k < src[i][j].Length; k += 2)
    16. if (comp[src[i][j][k]] < int.Parse(src[i][j][k - 1]))
    17. comp[src[i][j][k]] = int.Parse(src[i][j][k - 1]);
    18. result.Add(comp.Values.Aggregate(1, (a, b) => a * b));
    19. }
    20. Console.WriteLine($"{nameof(Part02)}: {result.Sum()}");
    21. }

    Source

    C#-Quellcode

    1. private static string[][][] Source()
    2. {
    3. return SourceText().Select(line =>
    4. line.Split(":;".ToCharArray(), StringSplitOptions.RemoveEmptyEntries))
    5. .Select(game => game.Select(line => line.Split(
    6. " ,".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)).ToArray()).ToArray();
    7. }
    9. private static string[] SourceText() =>
    10. [
    11. "Game 1: 3 blue, 4 red; 1 red, 2 green, 6 blue; 2 green",
    12. "Game 2: 1 blue, 2 green; 3 green, 4 blue, 1 red; 1 green, 1 blue",
    13. "Game 3: 8 green, 6 blue, 20 red; 5 blue, 4 red, 13 green; 5 green, 1 red",
    14. "Game 4: 1 green, 3 red, 6 blue; 3 green, 6 red; 3 green, 15 blue, 14 red",
    15. "Game 5: 6 red, 1 blue, 3 green; 2 blue, 1 red, 2 green",
    16. ];

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „exc-jdbi“ ()

    D2 Part 1

    VB.NET-Quellcode

    1. Dim input = File.ReadAllLines(FilePathOfDataPart1)
    2. Dim rgx As New Regex("[:;](?: (?:(?<green>\d+) green|(?<red>\d+) red|(?<blue>\d+) blue),?){1,3}")
    3. Dim result As Integer
    4. For i = 0 To input.Length - 1
    5. Dim draws = rgx.Matches(input(i)).Cast(Of Match)
    6. If draws.All(AddressOf IsPossible) Then result += i + 1
    7. Next
    9. Private Function IsPossible(m As Match) As Boolean
    10. Dim red = If(m.Groups("red").Value = String.Empty, 0, CInt(m.Groups("red").Value))
    11. Dim green = If(m.Groups("green").Value = String.Empty, 0, CInt(m.Groups("green").Value))
    12. Dim blue = If(m.Groups("blue").Value = String.Empty, 0, CInt(m.Groups("blue").Value))
    13. Return red <= 12 AndAlso green <= 13 AndAlso blue <= 14
    14. End Function

    D2 Part 2

    VB.NET-Quellcode

    1. Dim input = File.ReadAllLines(FilePathOfDataPart2)
    2. Dim rgx As New Regex("[:;](?: (?:(?<green>\d+) green|(?<red>\d+) red|(?<blue>\d+) blue),?){1,3}")
    3. Dim colors = {"red", "green", "blue"}
    4. Dim result As Integer
    5. For i = 0 To input.Length - 1
    6. Dim draws = rgx.Matches(input(i)).Cast(Of Match)
    7. result += colors.Select(Function(c) draws.Max(Function(m) Cnt(m, c))).Aggregate(Function(x, y) x * y)
    8. Next
    10. Private Function Cnt(m As Match, color As String) As Integer
    11. Dim c = m.Groups(color).Value
    12. Return If(c = String.Empty, 0, CInt(c))
    13. End Function

    Man kann die Summe auch mit LinQ machen, aber das sah mir zu unübersichtlich aus, weil die einzelnen Elemente dann schon Formeln sind. Und bei Part 1 noch schlimmer, wegen if

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Einfach mal alles zusammengeklatscht. :S
    Spoiler anzeigen
    ​

    C#-Quellcode

    1. ​const string inputFile = @"D:\Dev\net\AdventOfCode\2023\Day2\input.txt";
    3. using FileStream fs = File.OpenRead(inputFile);
    4. using StreamReader sr = new(fs);
    6. const int allowedRed = 12;
    7. const int allowedGreen = 13;
    8. const int allowedBlue = 14;
    10. int total = 0;
    12. while (!sr.EndOfStream)
    13. {
    14. var lineSpan = sr.ReadLine().AsSpan();
    15. int delimiterIndex = lineSpan.IndexOf(':');
    16. #region Part1
    17. int gameId = int.Parse(lineSpan[5..delimiterIndex]);
    19. total += IsPossibileGame(lineSpan[(delimiterIndex + 2)..]) ? gameId : 0;
    20. #endregion
    22. #region Part2
    23. total += getHighestCubes(lineSpan[(delimiterIndex + 2)..]);
    24. #endregion
    25. }
    27. System.Console.WriteLine(total);
    29. #region Part1
    30. bool IsPossibileGame(ReadOnlySpan<char> gameSet)
    31. {
    32. Range[] roundRanges = new Range[gameSet.Count(';') + 1];
    33. gameSet.Split(roundRanges, ';');
    35. foreach (Range round in roundRanges)
    36. {
    37. Range[] commas = new Range[gameSet[round].Count(',') + 1];
    38. var currentRound = gameSet[round];
    39. currentRound.Split(commas, ',', StringSplitOptions.TrimEntries);
    40. foreach (Range commaRange in commas)
    41. {
    42. Range[] whiteSpaces = new Range[2];
    43. var currentGame = currentRound[commaRange];
    44. if (currentGame.Split(whiteSpaces, ' ', StringSplitOptions.TrimEntries) > 0)
    45. {
    46. if (!CheckIfPossible(whiteSpaces, currentGame))
    47. {
    48. return false;
    49. }
    50. }
    51. }
    52. }
    54. return true;
    55. }
    57. static bool CheckIfPossible(Range[] whiteSpaces, ReadOnlySpan<char> currentGame)
    58. {
    59. int c = int.Parse(currentGame[whiteSpaces[0]]);
    60. bool isPossible = currentGame[whiteSpaces[1]] switch
    61. {
    62. "blue" => c <= allowedBlue,
    63. "green" => c <= allowedGreen,
    64. "red" => c <= allowedRed,
    65. _ => false
    66. };
    67. return isPossible;
    68. }
    69. #endregion
    71. #region Part2
    72. int getHighestCubes(ReadOnlySpan<char> gameSet)
    73. {
    74. int power = 1;
    75. Dictionary<string, int> highestCubes = new()
    76. {
    77. { "red", 0 },
    78. { "green", 0 },
    79. { "blue", 0 }
    80. };
    81. Range[] roundRanges = new Range[gameSet.Count(';') + 1];
    82. gameSet.Split(roundRanges, ';');
    84. foreach (Range round in roundRanges)
    85. {
    86. Range[] commas = new Range[gameSet[round].Count(',') + 1];
    87. var currentRound = gameSet[round];
    88. currentRound.Split(commas, ',', StringSplitOptions.TrimEntries);
    89. foreach (Range commaRange in commas)
    90. {
    91. Range[] whiteSpaces = new Range[2];
    92. var currentGame = currentRound[commaRange];
    93. if (currentGame.Split(whiteSpaces, ' ', StringSplitOptions.TrimEntries) > 0)
    94. {
    95. int c = int.Parse(currentGame[whiteSpaces[0]]);
    96. string currentKey = currentGame[whiteSpaces[1]].ToString();
    97. if (highestCubes[currentKey] < c)
    98. {
    99. highestCubes[currentKey] = c;
    100. }
    101. }
    102. }
    103. }
    105. foreach (string key in highestCubes.Keys)
    106. {
    107. power *= highestCubes[key];
    108. }
    110. return power;
    111. }
    112. #endregion

    Tag 2
    Heute war es Schön. Es ging eher in Richtung Fleissaufgabe. Zeit heute für Part 1 ca. 60 Min. und Part 2, noch 15 Min. hinterher.

    C# Part1 und 2
    Spoiler anzeigen

    C#-Quellcode

    1. #region Setup Input
    2. using System.Text.RegularExpressions;
    4. var input = File.ReadAllLines("AoC_D02.txt");
    5. List<Game> Games = []; //.Net8 new ini
    7. foreach (var line in input)
    8. {
    9. //split "Game 1: 3 blue, 4 red; 1 red, 2 green, 6 blue; 2 green" ----> 4 Parts: 'Game1' // '3 blue, 4 red' // ...
    10. var OneGameLineSplited = line.Split(':', ';');
    11. var GameId = Int32.Parse(Regex.Match(OneGameLineSplited[0], @"\d+").Value);
    12. List<Set> Sets = [];
    13. for (int i = 1; i < OneGameLineSplited.Length; i++)
    14. {//lookbehind: gets digits followed by 'blue'
    15. var blue = Regex.Match(OneGameLineSplited[i], @"\d+ (?=blue)").Value;
    16. var green = Regex.Match(OneGameLineSplited[i], @"\d+ (?=green)").Value;
    17. var red = Regex.Match(OneGameLineSplited[i], @"\d+ (?=red)").Value;
    18. Sets.Add(new Set(blue != string.Empty ? Int32.Parse(blue) : 0, green != string.Empty ? Int32.Parse(green) : 0, red != string.Empty ? Int32.Parse(red) : 0));
    19. }
    20. Games.Add(new Game(GameId, Sets));
    21. }
    22. #endregion Setup Input
    24. #region Part1 GamesIsPossible
    25. bool GameIsPossible(Set maxSet, Game game)
    26. {
    27. foreach (var oneGameSet in game.Sets)
    28. {
    29. if (oneGameSet.Blue > maxSet.Blue || oneGameSet.Green > maxSet.Green || oneGameSet.Red > maxSet.Red)
    30. {
    31. return false;
    32. }
    33. }
    34. return true;
    35. }
    36. #endregion Part1 GamesIsPossible
    38. #region Part2 Powers
    39. int GamePower(Game game)
    40. {
    41. var blue = game.Sets.Max(x => x.Blue);
    42. var green = game.Sets.Max(x => x.Green);
    43. var red = game.Sets.Max(x => x.Red);
    45. blue = blue == 0 ? 1 : blue;
    46. green = green == 0 ? 1 : green;
    47. red = red == 0 ? 1 : red;
    49. return blue * green * red;
    50. }
    51. #endregion Part2 Powers
    53. #region MAIN Game
    54. Set MaxSet = new(14, 13, 12);
    55. var sum = 0;
    56. var sum2 = 0;
    58. foreach (var game in Games)
    59. {
    60. if (GameIsPossible(MaxSet, game))
    61. {
    62. sum += game.Id;
    63. }
    64. sum2 += GamePower(game);
    65. }
    67. Console.WriteLine($"Part1: {sum}\nPart2: {sum2}");
    68. #endregion MAIN Game
    70. //--------------CLASSES
    71. class Game(int id, List<Set> sets)
    72. {// .Net8 Primär Konstruktor
    73. public int Id { get; set; } = id;
    74. public List<Set> Sets { get; set; } = sets;
    75. }
    77. class Set(int blue, int green, int red)
    78. {// .Net8 Primär Konstruktor
    79. public int Blue { get; set; } = blue;
    80. public int Green { get; set; } = green;
    81. public int Red { get; set; } = red;
    82. }
    codewars.com Rank: 4 kyu

    Tag 3


    Gedanke
    Spoiler anzeigen
    Finde alle Nummern. Startindex/Endindex der Nummer +/-1 und schauen ob da ein 'Symbol' ist. Gleiches mit der Zeile da drüber/drunter. Selbe Indizes


    Part 1 C# ca. 60 Min.
    Spoiler anzeigen

    C#-Quellcode

    1. using System.Text.RegularExpressions;
    3. var input = File.ReadAllLines("aoc.txt").ToList();
    5. #region EdgeCase FirstLine LastLine
    6. //Input from e.g. 345 to ->
    7. //.....
    8. //.345.
    9. //.....
    10. input.Insert(0, new string('.', input[0].Length));
    11. input.Insert(input.Count, new string('.', input[0].Length));
    13. string[] inputArray = new string[input.Count];
    15. for (int i = 0; i < input.Count; i++)
    16. {
    17. inputArray[i] = "." + input[i] + ".";
    18. }
    19. #endregion
    21. var sum = 0;
    22. for (int i = 1; i < inputArray.Length - 1; i++)
    23. {
    24. var nrsMatchedInLine = Regex.Matches(inputArray[i], @"\d+");
    25. if (nrsMatchedInLine.Count > 0)
    26. {
    27. foreach (Match nrMatch in nrsMatchedInLine)
    28. {
    29. if (CheckForSymbol(inputArray[i - 1], inputArray[i], inputArray[i + 1], nrMatch))
    30. {
    31. sum += Int32.Parse(nrMatch.Value);
    32. }
    33. }
    34. }
    35. }
    37. bool CheckForSymbol(string lineT, string lineM, string lineB, Match nrMatch)
    38. {
    39. var startIndex = nrMatch.Index - 1;
    40. var endIndex = nrMatch.Length + 2;
    42. #region DEBUG
    43. var r_1 = lineT.Substring(startIndex, endIndex);
    44. var r1 = Regex.Match(lineT.Substring(startIndex, endIndex), @"[^\.\d]").Success;
    46. var r_2 = lineM.Substring(startIndex, endIndex);
    47. var r2 = Regex.Match(lineM.Substring(startIndex, endIndex), @"[^\.\d]").Success;
    49. var r_3 = lineB.Substring(startIndex, endIndex);
    50. var r3 = Regex.Match(lineB.Substring(startIndex, endIndex), @"[^\.\d]").Success;
    51. #endregion DEBUG
    53. //matches everything BUT 'digits' and '.'
    54. if (Regex.Match(lineT.Substring(startIndex, endIndex), @"[^\.\d]").Success | Regex.Match(lineM.Substring(startIndex, endIndex), @"[^\.\d]").Success | Regex.Match(lineB.Substring(startIndex, endIndex), @"[^\.\d]").Success)
    55. {
    56. return true;
    57. }
    58. return false;
    59. }
    61. Console.WriteLine(sum);


    Gedanke
    Spoiler anzeigen
    ​Finde alle Nummern, die einen * haben. Speichere die Nummer und die Position des * in einem Dictionary <int, Point>. Im Fall, dass zwei Nummern den selben Point teilen -> Gear.


    Part 2 (kommt noch)
    codewars.com Rank: 4 kyu

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nogood“ ()

    D3 Part 1

    VB.NET-Quellcode

    1. Private input = File.ReadAllText(FilePathOfDataPart1)
    3. input = input.Replace(vbCrLf, String.Empty) ' width ist 140
    4. Dim i, result As Integer
    5. While i < input.Length
    6. Dim numberRange = GetNumberRange(i)
    7. If Not GetSymbolRange(numberRange).All(Function(x) input(x) = "." OrElse Char.IsDigit(input(x))) Then result += Calc(numberRange)
    8. i += Math.Max(1, numberRange.Count)
    9. End While
    11. Private Function GetNumberRange(idx As Integer) As Integer()
    12. If Not Char.IsDigit(input(idx)) Then Return Array.Empty(Of Integer)
    13. Dim lst As New List(Of Integer) From {idx}
    14. If Char.IsDigit(input(idx + 1)) Then
    15. lst.Add(idx + 1)
    16. If Char.IsDigit(input(idx + 2)) Then lst.Add(idx + 2)
    17. End If
    18. Return lst.ToArray
    19. End Function
    21. Private Function GetSymbolRange(number As IEnumerable(Of Integer)) As Integer()
    22. If number.Count = 0 Then Return Array.Empty(Of Integer)
    23. Dim lst As New List(Of Integer)
    24. For i = number.First - 1 To number.Last + 1
    25. lst.AddRange({i - 140, i, i + 140})
    26. Next
    27. Return lst.Distinct.Where(Function(n) n >= 0 AndAlso n < input.Length).ToArray
    28. End Function
    30. Private Function Calc(number As IEnumerable(Of Integer)) As Integer
    31. Dim m = number.Count - 1
    32. Dim ret As Integer
    33. For i = 0 To m
    34. ret += 10 ^ (m - i) * Integer.Parse(input(number.First + i))
    35. Next
    36. Return ret
    37. End Function

    Part 2 fehlt mir die Idee wie der Part 1 Code das mit abdecken kann. Daher hab ich das nicht gemacht. Auf n neuen Ansatz hatte ich noch keine Lust, aber vielleicht später

    So mit einem neuen Ansatz läuft beides, ist sogar kürzer und leichter geworden als der erste Ansatz.
    Ansatz2 Part2

    VB.NET-Quellcode

    1. Private input As String = File.ReadAllText(FilePathOfData)
    3. Sub Main()
    4. input = input.Replace(vbCrLf, "."c) 'width ist nun 141
    5. 'input = String.Join("*"c, input.Split({"+"c, "-"c, "#"c, "$"c, "%"c, "&"c, "/"c, "="c, "@"c}, StringSplitOptions.RemoveEmptyEntries))
    6. Dim idx As Integer
    7. Dim result As Integer
    8. While FindNext(idx)
    9. result += GetNumbers(idx).Aggregate(Function(x, y) x * y)
    10. End While
    11. End Sub
    13. Private Function FindNext(ByRef idx As Integer) As Boolean
    14. idx = input.IndexOf("*"c, idx + 1)
    15. Return idx > -1
    16. End Function
    18. Private Function GetNumbers(idx As Integer) As Integer()
    19. Dim lst As New List(Of Integer)
    20. For Each n In {-142, -141, -140, -1, 1, 140, 141, 142}
    21. If Char.IsDigit(input(idx + n)) Then lst.Add(GetNumber(idx + n, n))
    22. Next
    23. Dim cutlst = lst.Distinct.ToList
    24. If cutlst.Count < 2 Then cutlst.Add(0)
    25. Return cutlst.ToArray
    26. End Function
    28. Private Function GetNumber(idx As Integer, line0 As Integer) As Integer
    29. Dim last = If(line0 = -1, idx - line0, input.IndexOf("."c, idx))
    30. Dim first = If(line0 = 1, idx, input.LastIndexOf("."c, idx) + 1)
    31. Return Integer.Parse(input.Substring(first, last - first))
    32. End Function

    Ansatz2 Part1
    Auskommentierte Zeile aktivieren und im Aggregat * auf + ändern

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Platzhalter für Tag 2 und 3 - ich hinke nach.
    @Haudruferzappeltnoch: Ich weiß nicht, ob Dein Tag 1, Teil 2 überhaupt funktioniert, aber Option Strict On ist er nicht. Dictionary(Of String, Char), aber die Zweitwerte sind Strings. Und "21" wird nie ein Char.

    ##########

    Tag 2 Teil 1

    VB.NET-Quellcode

    1. Friend Class FrmMain
    3. Private ExistingCubes As CubeSet
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. CalculateValueForDay2()
    7. End Sub
    9. Private Sub CalculateValueForDay2()
    10. SetExistingCubes(12, 13, 14)
    11. Dim GameData = CollectDataFrom("input.txt")
    12. Dim FittingGames = GetFittingGamesFrom(GameData)
    13. ShowFinalGameSetIdSumFrom(FittingGames)
    14. End Sub
    16. Private Sub SetExistingCubes(CountOfRedCubes As Integer, CountOfGreenCubes As Integer, CountOfBlueCubes As Integer)
    17. ExistingCubes = New CubeSet(CountOfRedCubes, CountOfGreenCubes, CountOfBlueCubes)
    18. End Sub
    20. Private Function CollectDataFrom(FilePath As String) As IEnumerable(Of GameData)
    21. Dim ListOfGameData As New List(Of GameData)
    22. For Each RawDataLine In IO.File.ReadAllLines(FilePath)
    23. Dim MainData = RawDataLine.Split(":"c)
    24. Dim GameID = Integer.Parse(MainData(0).Substring("Game ".Length))
    25. Dim CubeSets = GetCubeSetsFrom(MainData(1).Trim)
    27. Dim NextGameData As New GameData(GameID, CubeSets)
    28. ListOfGameData.Add(NextGameData)
    29. Next
    30. Return ListOfGameData
    31. End Function
    33. Private Function GetCubeSetsFrom(RawData As String) As IEnumerable(Of CubeSet)
    34. Dim CubeSets As New List(Of CubeSet)
    35. For Each CubeSetRawData In RawData.Split(";"c)
    36. Dim CubeData = CubeSetRawData.Split(","c)
    37. Dim NewCubeSet As New CubeSet(0, 0, 0)
    38. For Each SingleCubeData In CubeData
    39. Dim SingleCubeSetRawData = SingleCubeData.Trim.Split
    40. Dim CubeCount = Integer.Parse(SingleCubeSetRawData(0))
    41. Dim CubeColorAsText = SingleCubeSetRawData(1)
    42. Select Case CubeColorAsText
    43. Case "red" : NewCubeSet.CountOfRedCubes = CubeCount
    44. Case "green" : NewCubeSet.CountOfGreenCubes = CubeCount
    45. Case "blue" : NewCubeSet.CountOfBlueCubes = CubeCount
    46. End Select
    47. Next
    48. CubeSets.Add(NewCubeSet)
    49. Next
    50. Return CubeSets
    51. End Function
    53. Private Function GetFittingGamesFrom(GameData As IEnumerable(Of GameData)) As IEnumerable(Of GameData)
    54. Return GameData.Where(Function(x) AllCubeSetsFit(x))
    55. End Function
    57. Private Function AllCubeSetsFit(SingleGameData As GameData) As Boolean
    58. Return SingleGameData.CubeSets.All(Function(x) SingleCubeSetFitsToExistingCubes(x))
    59. End Function
    61. Private Function SingleCubeSetFitsToExistingCubes(CubeSet As CubeSet) As Boolean
    62. If CubeSet.CountOfRedCubes > ExistingCubes.CountOfRedCubes Then Return False
    63. If CubeSet.CountOfGreenCubes > ExistingCubes.CountOfGreenCubes Then Return False
    64. If CubeSet.CountOfBlueCubes > ExistingCubes.CountOfBlueCubes Then Return False
    65. Return True
    66. End Function
    68. Private Sub ShowFinalGameSetIdSumFrom(FittingGames As IEnumerable(Of GameData))
    69. MessageBox.Show(FittingGames.Sum(Function(x) x.ID).ToString)
    70. End Sub
    72. End Class
    74. Friend Class GameData
    75. Property ID As Integer
    76. Property CubeSets As New List(Of CubeSet)
    77. Sub New(ID As Integer, CubeSets As IEnumerable(Of CubeSet))
    78. Me.ID = ID
    79. Me.CubeSets.AddRange(CubeSets)
    80. End Sub
    81. End Class
    83. Friend Class CubeSet
    84. Property CountOfRedCubes As Integer
    85. Property CountOfGreenCubes As Integer
    86. Property CountOfBlueCubes As Integer
    87. Sub New(CountOfRedCubes As Integer, CountOfGreenCubes As Integer, CountOfBlueCubes As Integer)
    88. Me.CountOfRedCubes = CountOfRedCubes
    89. Me.CountOfGreenCubes = CountOfGreenCubes
    90. Me.CountOfBlueCubes = CountOfBlueCubes
    91. End Sub
    92. End Class



    Tag 2 Teil 2

    VB.NET-Quellcode

    1. Friend Class FrmMain
    3. Private ExistingCubes As CubeSet
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. CalculateValueForDay2()
    7. End Sub
    9. Private Sub CalculateValueForDay2()
    10. SetExistingCubes(12, 13, 14)
    11. Dim GameData = CollectDataFrom("input.txt")
    12. Dim FittingGames = GetFittingGamesFrom(GameData)
    13. ShowFinalGameSetIdSumFrom(FittingGames)
    14. Dim MinimumCubeCounts = GetMinimumCubeCountFor(GameData)
    15. ShowFinalValueFrom(MinimumCubeCounts)
    16. End Sub
    18. Private Sub SetExistingCubes(CountOfRedCubes As Integer, CountOfGreenCubes As Integer, CountOfBlueCubes As Integer)
    19. ExistingCubes = New CubeSet(CountOfRedCubes, CountOfGreenCubes, CountOfBlueCubes)
    20. End Sub
    22. Private Function CollectDataFrom(FilePath As String) As IEnumerable(Of GameData)
    23. Dim ListOfGameData As New List(Of GameData)
    24. For Each RawDataLine In IO.File.ReadAllLines(FilePath)
    25. Dim MainData = RawDataLine.Split(":"c)
    26. Dim GameID = Integer.Parse(MainData(0).Substring("Game ".Length))
    27. Dim CubeSets = GetCubeSetsFrom(MainData(1).Trim)
    29. Dim NextGameData As New GameData(GameID, CubeSets)
    30. ListOfGameData.Add(NextGameData)
    31. Next
    32. Return ListOfGameData
    33. End Function
    35. Private Function GetCubeSetsFrom(RawData As String) As IEnumerable(Of CubeSet)
    36. Dim CubeSets As New List(Of CubeSet)
    37. For Each CubeSetRawData In RawData.Split(";"c)
    38. Dim CubeData = CubeSetRawData.Split(","c)
    39. Dim NewCubeSet As New CubeSet(0, 0, 0)
    40. For Each SingleCubeData In CubeData
    41. Dim SingleCubeSetRawData = SingleCubeData.Trim.Split
    42. Dim CubeCount = Integer.Parse(SingleCubeSetRawData(0))
    43. Dim CubeColorAsText = SingleCubeSetRawData(1)
    44. Select Case CubeColorAsText
    45. Case "red" : NewCubeSet.CountOfRedCubes = CubeCount
    46. Case "green" : NewCubeSet.CountOfGreenCubes = CubeCount
    47. Case "blue" : NewCubeSet.CountOfBlueCubes = CubeCount
    48. End Select
    49. Next
    50. CubeSets.Add(NewCubeSet)
    51. Next
    52. Return CubeSets
    53. End Function
    55. Private Function GetFittingGamesFrom(GameData As IEnumerable(Of GameData)) As IEnumerable(Of GameData)
    56. Return GameData.Where(Function(x) AllCubeSetsFit(x))
    57. End Function
    59. Private Function AllCubeSetsFit(SingleGameData As GameData) As Boolean
    60. Return SingleGameData.CubeSets.All(Function(x) SingleCubeSetFitsToExistingCubes(x))
    61. End Function
    63. Private Function SingleCubeSetFitsToExistingCubes(CubeSet As CubeSet) As Boolean
    64. If CubeSet.CountOfRedCubes > ExistingCubes.CountOfRedCubes Then Return False
    65. If CubeSet.CountOfGreenCubes > ExistingCubes.CountOfGreenCubes Then Return False
    66. If CubeSet.CountOfBlueCubes > ExistingCubes.CountOfBlueCubes Then Return False
    67. Return True
    68. End Function
    70. Private Sub ShowFinalGameSetIdSumFrom(FittingGames As IEnumerable(Of GameData))
    71. MessageBox.Show(FittingGames.Sum(Function(x) x.ID).ToString)
    72. End Sub
    74. Private Function GetMinimumCubeCountFor(Games As IEnumerable(Of GameData)) As IEnumerable(Of CubeSet)
    75. Return Games.Select(Function(x) GetMinimumCubeCountFor(x))
    76. End Function
    78. Private Function GetMinimumCubeCountFor(GameData As GameData) As CubeSet
    79. Dim MaximumCountOfRedCubes As Integer
    80. Dim MaximumCountOfGreenCubes As Integer
    81. Dim MaximumCountOfBlueCubes As Integer
    82. For Each CubeSet In GameData.CubeSets
    83. MaximumCountOfRedCubes = Math.Max(MaximumCountOfRedCubes, CubeSet.CountOfRedCubes)
    84. MaximumCountOfGreenCubes = Math.Max(MaximumCountOfGreenCubes, CubeSet.CountOfGreenCubes)
    85. MaximumCountOfBlueCubes = Math.Max(MaximumCountOfBlueCubes, CubeSet.CountOfBlueCubes)
    86. Next
    87. Return New CubeSet(MaximumCountOfRedCubes, MaximumCountOfGreenCubes, MaximumCountOfBlueCubes)
    88. End Function
    90. Private Sub ShowFinalValueFrom(MinimumCubeCounts As IEnumerable(Of CubeSet))
    91. MessageBox.Show(MinimumCubeCounts.Sum(Function(x) x.CountOfRedCubes * x.CountOfGreenCubes * x.CountOfBlueCubes).ToString)
    92. End Sub
    94. End Class
    96. Friend Class GameData
    97. Property ID As Integer
    98. Property CubeSets As New List(Of CubeSet)
    99. Sub New(ID As Integer, CubeSets As IEnumerable(Of CubeSet))
    100. Me.ID = ID
    101. Me.CubeSets.AddRange(CubeSets)
    102. End Sub
    103. End Class
    105. Friend Class CubeSet
    106. Property CountOfRedCubes As Integer
    107. Property CountOfGreenCubes As Integer
    108. Property CountOfBlueCubes As Integer
    109. Sub New(CountOfRedCubes As Integer, CountOfGreenCubes As Integer, CountOfBlueCubes As Integer)
    110. Me.CountOfRedCubes = CountOfRedCubes
    111. Me.CountOfGreenCubes = CountOfGreenCubes
    112. Me.CountOfBlueCubes = CountOfBlueCubes
    113. End Sub
    114. End Class


    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Part 1

    C#-Quellcode

    1. private static void Part01()
    2. {
    3. var src = Source();
    5. var symbols = AllSymbols();
    7. var l = symbols.Length;
    8. var numbers = ToNumbers(src);
    10. var result = new List<int>();
    11. for (var i = 0; i < numbers.Count; i++)
    12. if (LegalNumber(src, symbols, numbers[i].Numbers, numbers[i].XY))
    13. result.Add(numbers[i].Numbers);
    15. Console.WriteLine($"{nameof(Part01)}: {result.Sum()}");
    16. }
    18. private static bool LegalNumber(string[] grid, string symbols, int number, (int x, int y) xy)
    19. {
    20. var nb = Neighbor();
    21. int r = xy.y, c = xy.x;
    22. var nlength = $"{number}".Length;
    23. for (var x = 0; x < nlength; x++)
    24. {
    25. for (var i = 0; i < nb.Length; i++)
    26. {
    27. if (nb[i].X + x + c >= 0 && nb[i].X + x + c < grid[r].Length &&
    28. nb[i].Y + r >= 0 && nb[i].Y + r < grid.Length)
    29. {
    30. if (grid[r + nb[i].Y][x + nb[i].X + c] == '.') continue;
    31. if (symbols.Contains(grid[r + nb[i].Y][x + nb[i].X + c]))
    32. return true;
    33. }
    34. }
    35. }
    36. return false;
    37. }

    Part 2

    C#-Quellcode

    1. private static void Part02()
    2. {
    3. var src = Source();
    5. var symbols = AllSymbols();
    7. var l = symbols.Length;
    8. var numbers = ToNumbers(src);
    10. var resultlist = new List<((int x, int y) xy, int number)>();
    11. for (var i = 0; i < numbers.Count; i++)
    12. {
    13. var xyn = SymbolXY(src, '*', numbers[i].Numbers, numbers[i].XY);
    14. if (xyn != ((-1, -1), -1))
    15. resultlist.Add(xyn);
    16. }
    17. var result = new List<int>();
    18. var res = resultlist.OrderBy(x => x.xy).ToArray();
    19. for (var i = 1; i < res.Length; i++)
    20. {
    21. var (xy, number) = res[i];
    22. if (res[i - 1].xy == xy)
    23. {
    24. var t = new List<int> { res[i - 1].number, res[i].number };
    25. for (var j = i + 1; j < res.Length; j++)
    26. if (res[j].xy != xy) break;
    27. else t.Add(res[j].number);
    28. result.Add(t.Aggregate(1, (a, b) => a * b));
    29. }
    30. }
    31. Console.WriteLine($"{nameof(Part02)}: {result.Sum()}");
    32. }
    33. private static ((int x, int y) xy, int number) SymbolXY(string[] grid, char symbols, int number, (int x, int y) xy)
    34. {
    35. var nb = Neighbor();
    36. int r = xy.y, c = xy.x;
    37. var nlength = $"{number}".Length;
    38. for (var x = 0; x < nlength; x++)
    39. {
    40. for (var i = 0; i < nb.Length; i++)
    41. {
    42. if (nb[i].X + x + c >= 0 && nb[i].X + x + c < grid[r].Length &&
    43. nb[i].Y + r >= 0 && nb[i].Y + r < grid.Length)
    44. {
    45. if (grid[r + nb[i].Y][x + nb[i].X + c] == '.') continue;
    46. if (symbols == grid[r + nb[i].Y][x + nb[i].X + c])
    47. return ((x + nb[i].X + c, r + nb[i].Y), number);
    48. }
    49. }
    50. }
    51. return ((-1, -1), -1);
    52. }

    Methodes

    C#-Quellcode

    1. private static List<(int Numbers, (int X, int Y) XY)> ToNumbers(string[] grid)
    2. {
    3. var result = new List<(int num, (int x, int y))>();
    4. for (var r = 0; r < grid.Length; r++)
    5. {
    6. var snumber = string.Empty;
    7. for (var c = 0; c < grid[r].Length; c++)
    8. {
    9. while (int.TryParse(grid[r][c].ToString(), out _))
    10. {
    11. snumber += grid[r][c++];
    12. if (c == grid[r].Length) break;
    13. }
    14. if (snumber.Length > 0)
    15. {
    16. result.Add((int.Parse(snumber), (c - snumber.Length, r)));
    17. snumber = string.Empty;
    18. }
    19. }
    20. }
    21. return result;
    22. }
    24. private static (int X, int Y)[] Neighbor() =>
    25. new[]
    26. {
    27. (-1, -1) ,(0, -1) ,(1, -1) ,
    28. (-1, 0) , (1, 0) ,
    29. (-1, 1) ,(0, 1) ,( 1, 1) ,
    30. };
    32. private static string AllSymbols()
    33. {
    34. var src = Source();
    35. var result = new StringBuilder();
    36. var sbl = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.";
    37. foreach (var lines in src)
    38. foreach (var chr in lines)
    39. if (!sbl.Contains(chr))
    40. result.Append(chr);
    41. return string.Join("", result.ToString().ToHashSet().ToArray());
    42. }

    Source

    C#-Quellcode

    1. private static string[] Source() =>
    2. [
    3. "467..114..",
    4. "...*......",
    5. "..35..633.",
    6. "......#...",
    7. "617*......",
    8. ".....+.58.",
    9. "..592.....",
    10. "......755.",
    11. "...$.*....",
    12. ".664.598..",
    13. ];