Advent of Code 2023

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

    Wer macht die Codes hier für AoC eigentlich mit TDD? Wäre m.E. ganz sinnvoll. Aber leider mach ich es nicht - weder hier noch bei anderen Projekten. ||
    Aber als Einzelentwickler ist leider auch keiner da, der mir diesbezüglich in den Ar…beitscode redet - leider.
    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“ ()

    @exc-jdbi Falls es Dich noch interessiert. Die Summe für Teil 2 aus deiner Post für meinen Input ... (ist falsch; ne war mein Fehler) ist RICHTIG!!!

    @VaporiZed TDD! Ich leider nicht. Da nur Hobby Coder + Einzelkämpfer. Obwohl ich denke, dass TDD ein Schritt wäre, der mich weiter bringt. Es fehlt an der Motivation.

    nogood
    codewars.com Rank: 4 kyu

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

    Day 5 2023

    Part 1

    C#-Quellcode

    1. private static void Part01()
    2. {
    3. var source = Source();
    5. var maps = ToMaps(source.Skip(1));
    6. var seeds = source[0][1].Split(" ",
    7. StringSplitOptions.RemoveEmptyEntries).Select(long.Parse);
    9. var result = long.MaxValue;
    10. foreach (var seed in seeds)
    11. {
    12. var value = seed;
    13. foreach (var map in maps)
    14. foreach (var (src, dest, cnt) in map)
    15. if (src <= value && value < src + cnt)
    16. { value = dest + value - src; break; }
    17. result = Math.Min(result, value);
    18. }
    19. Console.WriteLine($"{nameof(Part01)}: lowest location: {result}");
    20. }

    Part 2

    C#-Quellcode

    1. private static void Part02()
    2. {
    3. var src = SourceText();
    5. var idx = src[0].IndexOf(':') + 1;
    6. var seeds = src[0].Substring(idx).Split(" ",
    7. StringSplitOptions.RemoveEmptyEntries).Select(long.Parse)
    8. .Chunk(2);
    10. List<(long start, long to)> tmp;
    11. var result = new List<(long start, long to)>();
    12. var changed = new List<(long start, long to)>();
    13. seeds.ForEach(x => result.Add((x[0],x[1])));
    14. foreach (var line in src.Skip(1))
    15. {
    16. tmp = [];
    17. if (line == "" || line.Contains(':'))
    18. {
    19. foreach (var (start, to) in changed)
    20. result.Add((start, to));
    21. changed.Clear();
    22. continue;
    23. }
    24. var map = line.Split().Where(s=> !string.IsNullOrEmpty(s)).Select(long.Parse).ToList();
    25. foreach (var (start, to) in result)
    26. {
    27. var rstart = map[1];
    28. var rto = map[1] + map[2] - 1;
    29. var offset = map[0] - map[1];
    31. var sstart = start;
    32. var sto = start + to - 1;
    34. long crstart = 0, crto = 0;
    36. switch (true)
    37. {
    38. case var b when rstart < sstart && rto >= sstart & rto <= sto:
    39. crstart = sstart;
    40. crto = rto;
    41. changed.Add((crstart + offset, crto - crstart + 1));
    42. if (crto + 1 <= sto) tmp.Add((crto + 1, sto - (crto + 1) + 1));
    43. break;
    44. case var b when rstart >= sstart && rto <= sto:
    45. crstart = rstart;
    46. crto = rto;
    47. changed.Add((crstart + offset, crto - crstart + 1));
    48. if (crto + 1 <= sto) tmp.Add((crto + 1, sto - (crto + 1) + 1));
    49. if (crstart - 1 >= sstart) tmp.Add((sstart, crstart - 1 - sstart + 1));
    50. break;
    51. case var b when rstart >= sstart && rstart <= sto && rto > sto:
    52. crstart = rstart;
    53. crto = sto;
    54. changed.Add((crstart + offset, crto - crstart + 1));
    55. if (crstart - 1 >= sstart) tmp.Add((sstart, crstart - 1 - sstart + 1));
    56. break;
    57. case var b when rstart < sstart && rto > sto:
    58. crstart = sstart;
    59. crto = sto;
    60. changed.Add((crstart + offset, crto - crstart + 1));
    61. break;
    62. default:
    63. tmp.Add((sstart, sto - sstart + 1));
    64. break;
    65. }
    66. }
    67. result = tmp;
    68. }
    69. changed.ForEach(x => result.Add((x.start, x.to)));
    70. Console.WriteLine($"{nameof(Part02)}: {result.Min(x => x.start)}");
    71. }

    Source

    C#-Quellcode

    1. private static string[][] Source()
    2. {
    3. var result = new List<string[]>();
    4. var src = SourceText().Where(line => line != "").ToArray();
    5. var first = src.First().Split(": ",StringSplitOptions.RemoveEmptyEntries);
    7. first[0] += ":";
    8. result.Add(first);
    9. for (var i = 1; i < src.Length; i++)
    10. {
    11. var tmp = new List<string>{src[i]};
    12. for (var j = ++i; j < src.Length; j++, i++)
    13. {
    14. if (src[j].Contains('-'))
    15. { i--;break; }
    16. else tmp.Add(src[j]);
    17. }
    18. result.Add([.. tmp]);
    19. }
    20. return [.. result];
    21. }
    23. private static string[] SourceText() =>
    24. [
    25. "seeds: 79 14 55 13",
    26. "",
    27. "seed-to-soil map:",
    28. "50 98 2",
    29. "52 50 48",
    30. "",
    31. "soil-to-fertilizer map:",
    32. "0 15 37",
    33. "37 52 2",
    34. "39 0 15",
    35. "",
    36. "fertilizer-to-water map:",
    37. "49 53 8",
    38. "0 11 42",
    39. "42 0 7",
    40. "57 7 4",
    41. "",
    42. "water-to-light map:",
    43. "88 18 7",
    44. "18 25 70",
    45. "",
    46. "light-to-temperature map:",
    47. "45 77 23",
    48. "81 45 19",
    49. "68 64 13",
    50. "",
    51. "temperature-to-humidity map:",
    52. "0 69 1",
    53. "1 0 69",
    54. "",
    55. "humidity-to-location map:",
    56. "60 56 37",
    57. "56 93 4",
    58. ];


    Hier noch eine Rekursive Methode
    Part 2 Rekursiv
    ​

    C#-Quellcode

    1. ​ private static void Part02_Recursiv()
    2. {
    3. var src = Source();
    5. var maps = ToMaps(src.Skip(1));
    6. src[0] = [string.Join(" ", src[0])];
    7. (long from,long to)[] seeds = src[0][0].Split(" ").Skip(1).Select(long.Parse).Chunk(2)
    8. .Select(pair => (pair[0],pair[0] + pair[1] - 1) ).ToArray();
    10. static bool TryToComparer((long from, long to) this_, (long from, long to) other,
    11. out (long from, long to) compare)
    12. {
    13. compare = new(Math.Max(this_.from, other.from), Math.Min(this_.to, other.to));
    14. return compare.to >= compare.from;
    15. }
    17. static (long from, long to) FromCount(long start, long count) =>
    18. new(start, start + count - 1);
    20. static (long from, long to) Offset((long from, long to)this_, long distance) =>
    21. new(this_.from + distance,this_. to + distance);
    23. long lookup_bfs((long from, long to) range, int idx)
    24. {
    25. if (idx >= maps!.Length) return range.from;
    26. var compareleft = new List<(long from, long to)>();
    27. var compareright = new List<(long from, long to)>();
    29. foreach (var (src, dest, cnt) in maps[idx])
    30. {
    31. var tmp = FromCount(src, cnt);
    32. if (TryToComparer(range, tmp, out var compare))
    33. {
    34. compareleft.Add(compare);
    35. compareright.Add(Offset(compare, dest - src));
    36. }
    37. }
    39. var leftmin = compareleft.OrderBy(_ => _.from)
    40. .Prepend((range.from - 1, range.from - 1))
    41. .Append((range.to + 1, range.to + 1))
    42. .Pairwise((r1, r2) => (r1.Item2 + 1, r2.Item1 - 1))
    43. .Where(_ => _.Item2 >= _.Item1);
    45. return leftmin.Concat(compareright).Min(x => lookup_bfs(x, idx + 1));
    46. }
    48. var result = seeds!.Select(_ => lookup_bfs(_, 0)).Min();
    49. Console.WriteLine($"{nameof(Part02_Recursiv)}: {result}");
    50. }
    52. private static (long src, long dest, long cnt)[][] ToMaps(IEnumerable<string[]> src)
    53. {
    54. var result = new List<(long src, long dest, long cnt)[]>();
    56. foreach (var datas in src)
    57. {
    58. var tmp = new List<(long src, long dest, long cnt)>();
    59. foreach (var strset in datas.Skip(1))
    60. {
    61. if (strset == string.Empty) continue;
    62. var lset = strset.Split(' ', StringSplitOptions.RemoveEmptyEntries).Select(long.Parse).ToArray();
    63. tmp.Add((lset[1], lset[0], lset[2]));
    64. }
    65. result.Add([.. tmp]);
    66. }
    67. return [.. result];
    68. }

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

    Ich weiß nicht mal was tdd ist.^^
    D5 Part 1

    VB.NET-Quellcode

    1. Private maps As IEnumerable(Of IEnumerable(Of mapping))
    3. Sub Main()
    4. Dim input = IO.File.ReadAllText(FilePathOfData).Split(vbCrLf & vbCrLf)
    5. Dim seeds = input(0).Substring(7).Split(" "c).Select(Function(s) CLng(s))
    6. maps = input.Skip(1).Select(Function(s) s.Split(vbCrLf).Skip(1).Select(Function(l) New mapping(l.Split(" "c))))
    7. Dim result = seeds.Min(Function(s)
    8. Dim value = s
    9. For i = 0 To maps.Count - 1
    10. value = MapToMap(i, value)
    11. Next
    12. Return value
    13. End Function)
    14. Stop
    15. End Sub
    17. Private Function MapToMap(mapidx As Integer, input As Long) As Long
    18. Dim map = maps(mapidx).FirstOrDefault(Function(m) input >= m.src AndAlso input <= m.src + m.len)
    19. If map Is Nothing Then Return Long.MaxValue
    20. Return input - map.src + map.dest
    21. End Function
    23. Friend Class mapping
    24. Property dest As Long
    25. Property src As Long
    26. Property len As Long
    27. Sub New(from As String())
    28. _dest = CLng(from(0))
    29. _src = CLng(from(1))
    30. _len = CLng(from(2))
    31. End Sub
    32. End Class


    Nach Post 47 eingefügt: @VaporiZed
    Mein Part 2 Algo dauert definitiv Stunden^^ Ist quasi derselbe wie i Part 1. Wenn ich alles lade, sind das einige GB
    Ich habe versucht mich ranzutasten (das geht zügig), aber je nachdem wie eng die Pfade durch die Maps sein können, ist es reine Glückssache, wenn man den richtigen Wert damit findet. Hab zwar einen der Faktor 5 kleiner ist als Part 1 aber nicht der richtige xD
    Das wird aber nicht der richtige Weg sein. Da muss man schon kräftig knobeln

    Vielleicht kann einer von den anderen die AoC schon kennen was dazu sagen, ob manche Lösungen tatsächlich mehr als 1 Sekunde Codelaufzeit sein können?

    ---Edit---
    Habe den Trick gefunden. Alle Maps sind bijektiv, das heißt man kann rückwärts durchlaufen. Also alle Locations von 0 aufwärts prüfen, statt alle Seeds.
    Denn die minimale Location kennt man erst nachdem man die meisten Seeds geprüft hat, aber die erste Location, die einen Seed findet ist automatisch die minimale Location. (Witzig mit diesem Ansatz wäre Part 1 ungleich langsamer, da die Ergebnis-Location erwartungsgemäß massiv höher ausfällt als die Anzahl der Seeds)
    Nun trotz dessen ist mein Code echt langsam, aber man kann sich innerhalb weniger Minuten zum Ergebnis tasten (und da werden nur n paar MB geladen)

    ---Edit2---
    Beendet nun sofort:
    D5 Part 2 und Part 1 in einem
    Um 28Mio liegt das Ergebnis rum. Die Sache ist mein Debugger sagt mir ein Loop dauert < 1ms, aber ich schaffe in Wahrheit nur 50.000 loops pro Sekunde. Werde das heute nicht genauer auswerten. Irgendwo stimmt da noch was nicht, das kann doch nicht sein, dass 7mal FirstOrDefault so lange dauert ?(

    VB.NET-Quellcode

    1. Private maps As mapping()()
    2. Sub Main()
    3. Dim input = IO.File.ReadAllText(FilePathOfData).Split(vbCrLf & vbCrLf)
    4. Dim seeds = input(0).Substring(7).Split(" "c).Select(AddressOf Long.Parse)
    5. Dim rgx As New Regex("(?<start>\d+) (?<length>\d+)")
    6. Dim seedRanges = rgx.Matches(input(0)).Select(Function(m) New With {.start = CLng(m.Groups("start").Value), .length = CLng(m.Groups("length").Value)}).ToArray
    7. maps = input.Skip(1).Select(Function(s) s.Split(vbCrLf).Skip(1).Select(Function(l) New mapping(l.Split(" "c))).ToArray).ToArray
    8. Dim resultPart1 = seeds.Min(Function(s)
    9. Dim value = s
    10. For i = 0 To maps.Count - 1
    11. value = MapToMap(i, value)
    12. Next
    13. Return value
    14. End Function)
    15. Dim resultPart2 As Long
    16. Dim seed As Long
    17. Dim k As Integer = 6 'Gern auch höher, ggf. Anzahl der Stellen der max möglichen Location
    18. While k >= 0
    19. While Not seedRanges.Any(Function(r) seed >= r.start AndAlso seed < r.start + r.length)
    20. resultPart2 += 10 ^ k
    21. seed = resultPart2
    22. For i = maps.Length - 1 To 0 Step -1
    23. seed = MapToMapReverse(i, seed)
    24. Next
    25. End While
    26. resultPart2 -= 10 ^ k
    27. k -= 1
    28. seed = resultPart2
    29. End While
    30. resultPart2 += 1
    31. End Sub
    33. Private Function MapToMap(mapidx As Integer, input As Long) As Long
    34. Dim map = maps(mapidx).FirstOrDefault(Function(m) input >= m.src AndAlso input <= m.src + m.len)
    35. If map Is Nothing Then Return input
    36. Return input + map.dest - map.src
    37. End Function
    39. Private Function MapToMapReverse(mapidx As Integer, input As Long) As Long
    40. Dim map = maps(mapidx).FirstOrDefault(Function(m) input >= m.dest AndAlso input <= m.dest + m.len)
    41. If map Is Nothing Then Return input
    42. Return input + map.src - map.dest
    43. End Function
    45. Friend Class mapping
    46. Property dest As Long
    47. Property src As Long
    48. Property len As Long
    49. Sub New(from As String())
    50. _dest = CLng(from(0))
    51. _src = CLng(from(1))
    52. _len = CLng(from(2))
    53. End Sub
    54. End Class


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

    @Haudruferzappeltnoch: Test Driven Development :D

    Ich krieg nen Vogel bei Part2. Entweder hab ich nen totalen Denkfehler oder meiner Code ist super ineffizient. Da sollen Abermilliarden von IDs getestet werden?!? Mein Algo scheint zwar zu funktionieren, aber das Durcharbeiten würde Stunden dauern. Ok, vielleicht nicht, aber der erste von 10 Blöcken dauert schon 100 Sekunden :S
    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“ ()

    Finally got it. Ich dachte schon, dass nach 20 Minuten Rechenzeit der falsche Wert rauskommt :S
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Friend Class FrmMain
    3. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim Values = Await Threading.Tasks.Task.Run(Function() New ValueCalculatorForDay5().GetValuesFor("input2.txt"))
    5. MessageBox.Show(Values.Part1Value.ToString)
    6. MessageBox.Show(Values.Part2Value.ToString)
    7. End Sub
    9. End Class
    11. Friend Class ValueCalculatorForDay5
    13. Private ReadOnly TitleParameterTypePairs As New Dictionary(Of String, ParameterType) From {{"seed-to-soil map:", ParameterType.SeedToSoil},
    14. {"soil-to-fertilizer map:", ParameterType.SoilToFertilizer},
    15. {"fertilizer-to-water map:", ParameterType.FertilizerToWater},
    16. {"water-to-light map:", ParameterType.WaterToLight},
    17. {"light-to-temperature map:", ParameterType.LightToTemperature},
    18. {"temperature-to-humidity map:", ParameterType.TemperatureToHumidity},
    19. {"humidity-to-location map:", ParameterType.HumidityToLocation}}
    20. Private ReadOnly ParameterTables As New List(Of ParameterTable)
    21. Private MinimumLocationIDs As New List(Of Long)
    22. Private MinimumEnhancedLocationIDs As New List(Of Long)
    24. Function GetValuesFor(FilePath As String) As (Part1Value As Long, Part2Value As Long)
    25. InitializeIDLists()
    26. Dim RawDataLines = GetRawDataFrom(FilePath)
    27. ParseRawData(RawDataLines)
    29. Dim SeedData = GetSeedDataFrom(GetSeedValuesAsTexts(RawDataLines(0)))
    30. Threading.Tasks.Parallel.For(0, SeedData.Count - 1, Sub(x) ConvertSeedIDsToLocationIDs(SeedData(x), x))
    31. Return (MinimumLocationIDs.Min, MinimumEnhancedLocationIDs.Min)
    32. End Function
    34. Private Sub InitializeIDLists()
    35. For i = 1 To 10
    36. MinimumLocationIDs.Add(Long.MaxValue)
    37. MinimumEnhancedLocationIDs.Add(Long.MaxValue)
    38. Next
    39. End Sub
    41. Private Function GetSeedValuesAsTexts(RawDataLine As String) As IEnumerable(Of String)
    42. Return RawDataLine.Split({":"c, " "c}, StringSplitOptions.RemoveEmptyEntries).Skip(1)
    43. End Function
    45. Private Function GetSeedDataFrom(RawDataValues As IEnumerable(Of String)) As IEnumerable(Of (Value1 As Long, Value2 As Long))
    46. Dim List As New List(Of (Value1 As Long, Value2 As Long))
    47. For i = 0 To RawDataValues.Count - 1 Step 2
    48. List.Add((Long.Parse(RawDataValues(i)), Long.Parse(RawDataValues(i + 1))))
    49. Next
    50. Return List
    51. End Function
    53. Private Function GetRawDataFrom(FilePath As String) As IEnumerable(Of String)
    54. Return IO.File.ReadAllLines(FilePath)
    55. End Function
    57. Private Sub ParseRawData(RawDataLines As IEnumerable(Of String))
    58. ParseBlocks(GetDataBlocksFrom(RawDataLines.Skip(2)))
    59. End Sub
    61. Private Function GetDataBlocksFrom(RawDataLines As IEnumerable(Of String)) As IEnumerable(Of IEnumerable(Of String))
    62. Dim Blocks As New List(Of IEnumerable(Of String))
    63. Dim BlockData As New List(Of String)
    65. For Each RawDataLine In RawDataLines
    66. If Not String.IsNullOrEmpty(RawDataLine) Then
    67. BlockData.Add(RawDataLine)
    68. Else
    69. Blocks.Add(BlockData)
    70. BlockData = New List(Of String)
    71. End If
    72. Next
    73. Blocks.Add(BlockData)
    74. Return Blocks
    75. End Function
    77. Private Sub ParseBlocks(Blocks As IEnumerable(Of IEnumerable(Of String)))
    78. Blocks.ToList.ForEach(Sub(x) ParseBlock(x))
    79. End Sub
    81. Private Sub ParseBlock(BlockData As IEnumerable(Of String))
    82. Dim NewParameterTable As New ParameterTable With {.ParameterType = TitleParameterTypePairs.Single(Function(x) x.Key = BlockData(0)).Value}
    83. For Each BlockLine In BlockData.Skip(1)
    84. Dim RawData = BlockLine.Split
    85. Dim SourceStartValue = Long.Parse(RawData(1))
    86. Dim DestinationStartValue = Long.Parse(RawData(0))
    87. Dim Range = Integer.Parse(RawData(2))
    88. NewParameterTable.AdditionalMappings.Add(New AdditionalMapping(SourceStartValue, DestinationStartValue, Range))
    89. Next
    90. ParameterTables.Add(NewParameterTable)
    91. End Sub
    93. Private Sub ConvertSeedIDsToLocationIDs(Data As (Value1 As Long, Value2 As Long), Index As Integer)
    94. Call {Data.Value1, Data.Value2}.ToList.ForEach(Sub(x) MinimumLocationIDs(Index) = Math.Min(GetLocationIdFrom(x), MinimumLocationIDs(Index)))
    95. ConvertEnhancedSeedIdToLocationId(Data, Index)
    96. End Sub
    98. Private Function GetLocationIdFrom(SeedID As Long) As Long
    99. Dim CurrentID = SeedID
    100. For Each ParameterTable In ParameterTables
    101. CurrentID = GetNewIdFrom(ParameterTable, CurrentID)
    102. Next
    103. Return CurrentID
    104. End Function
    106. Private Sub ConvertEnhancedSeedIdToLocationId(Data As (Value1 As Long, Value2 As Long), Index As Integer)
    107. For i = Data.Value1 To Data.Value1 + Data.Value2 - 1
    108. MinimumEnhancedLocationIDs(Index) = Math.Min(GetLocationIdFrom(i), MinimumEnhancedLocationIDs(Index))
    109. Next
    110. End Sub
    112. Private Function GetNewIdFrom(ParameterTable As ParameterTable, ID As Long) As Long
    113. Dim FittingMapping = ParameterTable.AdditionalMappings.FirstOrDefault(Function(x) x.Contains(ID))
    114. If FittingMapping Is Nothing Then Return ID
    116. Return FittingMapping.GetConvertedValueOf(ID)
    117. End Function
    119. End Class
    121. Friend Class ParameterTable
    122. Property ParameterType As ParameterType
    123. Property AdditionalMappings As New List(Of AdditionalMapping)
    124. End Class
    126. Friend Class AdditionalMapping
    127. Property SourceStartValue As Long
    128. Property DestinationStartValue As Long
    129. Property Range As Integer
    131. Sub New(SourceStartValue As Long, DestinationStartValue As Long, Range As Integer)
    132. Me.SourceStartValue = SourceStartValue
    133. Me.DestinationStartValue = DestinationStartValue
    134. Me.Range = Range
    135. End Sub
    137. Function Contains(ID As Long) As Boolean
    138. Return ID >= SourceStartValue AndAlso ID <= SourceStartValue + Range - 1
    139. End Function
    141. Function GetConvertedValueOf(ID As Long) As Long
    142. Dim Offset = DestinationStartValue - SourceStartValue
    143. Return ID + Offset
    144. End Function
    146. End Class
    148. Friend Enum ParameterType
    149. SeedToSoil
    150. SoilToFertilizer
    151. FertilizerToWater
    152. WaterToLight
    153. LightToTemperature
    154. TemperatureToHumidity
    155. HumidityToLocation
    156. End Enum
    Aber die Parallelverarbeitung brachte nix. Da fehlt mir wohl noch Übung.
    @Haudruferzappeltnoch: Ich hatte auch zuerst versucht, alle Seeds in den RAM zu donnern, aber das gab auch GB-Mengen, was verweigert wurde. Daher hab ich es nun paarweise gemacht.
    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.

    Haudruferzappeltnoch schrieb:

    Vielleicht kann einer von den anderen die AoC schon kennen was dazu sagen, ob manche Lösungen tatsächlich mehr als 1 Sekunde Codelaufzeit sein können?

    Ja das kann sein. Gerade bei einem Tag wie heute.
    Ich habe jetzt meinen Code fertig und hab mal gestartet. Mal schauen ob ich weniger als 20 Minuten Rechenzeit brauche.
    Weiß aber nicht ob mein Code da so performant ist. Sobald fertig und das Ergebnis stimmt poste ich mal den Code.
    @VaporiZed ich machs jetzt auch "nach und nach" mein PC mochte nicht mehr nachdem die 64GB Ram voll waren :D
    Grüße , xChRoNiKx

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

    Uff ok. Ich musste nochmal umschreiben weil nach 50+ Minuten nichts fertig war.
    Hier jetzt aber P1 und P2 sorry nur full source diesmal:
    EDIT// Ich seh grad hab noch garnicht full aufgeräumt... mach ich mal die tage.
    Spoiler anzeigen

    Ich habe natürlich auch erst alles in den RAM geladen war keine gute Idee...
    Nun schreibe ich alle Seeds erst in eine TXT (Achtung die ist bei mir 30GB groß) und gehe dann parallel per ReadLines die zeilen durch um für P2 die lowest location zu berechnen.
    Der Vorgang hat ca. 40 Minuten gedauert.
    Für performantere Lösungen bin ich gerne zu haben :)

    C#-Quellcode

    1. using System.Text.RegularExpressions;
    3. namespace Tag05
    4. {
    5. internal class Program
    6. {
    7. static void Main(string[] args)
    8. {
    9. string[] inputFile = File.ReadAllLines("Input.txt");
    11. Garden gardenP1 = new Garden();
    12. gardenP1.Convert(inputFile);
    13. gardenP1.ProcessSeedsP1();
    14. Console.WriteLine($"Lowest Location P1: {gardenP1.seeds.Min(x => x.Location)}");
    15. Garden gardenP2 = new Garden();
    16. gardenP2.Convert(inputFile,true);
    17. Console.WriteLine($"Lowest Location P1: {gardenP2.ProcessSeedsP2()}");
    18. }
    19. }
    21. class Garden
    22. {
    23. public List<Seed> seeds = new List<Seed>();
    24. List<Map> maps = new List<Map>();
    26. Dictionary<long, long> SeedToSoil = new Dictionary<long, long>();
    27. Dictionary<long, long> SoilToFertilizer = new Dictionary<long, long>();
    28. Dictionary<long, long> FertilizerToWater = new Dictionary<long, long>();
    29. Dictionary<long, long> WaterToLight = new Dictionary<long, long>();
    30. Dictionary<long, long> LightToTemperature = new Dictionary<long, long>();
    31. Dictionary<long, long> TemperatureToHumidity = new Dictionary<long, long>();
    32. Dictionary<long, long> HumidityToLocation = new Dictionary<long, long>();
    33. public Garden()
    34. {
    35. maps.Add(new Map() { OrderNumber = 0, Name = "seed-to-soil", Mapping = SeedToSoil });
    36. maps.Add(new Map() { OrderNumber = 1, Name = "soil-to-fertilizer", Mapping = SoilToFertilizer });
    37. maps.Add(new Map() { OrderNumber = 2, Name = "fertilizer-to-water", Mapping = FertilizerToWater });
    38. maps.Add(new Map() { OrderNumber = 3, Name = "water-to-light", Mapping = WaterToLight });
    39. maps.Add(new Map() { OrderNumber = 4, Name = "light-to-temperature", Mapping = LightToTemperature });
    40. maps.Add(new Map() { OrderNumber = 5, Name = "temperature-to-humidity", Mapping = TemperatureToHumidity });
    41. maps.Add(new Map() { OrderNumber = 6, Name = "humidity-to-location", Mapping = HumidityToLocation });
    42. }
    44. public void Convert(string[] lines, bool part2 = false)
    45. {
    46. string processingType = "seeds";
    47. foreach (string line in lines)
    48. {
    49. if (String.IsNullOrEmpty(line)) continue;
    50. if (line.Contains("map:"))
    51. {
    52. processingType = line.Replace(" map:", "");
    53. continue;
    54. }
    55. if (processingType == "seeds")
    56. {
    57. if (line.StartsWith("seeds:"))
    58. {
    59. if (part2)
    60. {
    61. if(!File.Exists(Path.Combine(Environment.CurrentDirectory, "part2.txt")))
    62. {
    63. var matches = Regex.Matches(line.Replace("seeds:", ""), "(\\d+) (\\d+)");
    64. using StreamWriter sw = new StreamWriter(Path.Combine(Environment.CurrentDirectory, "part2.txt"));
    65. foreach (Match match in matches)
    66. {
    68. string[] numbers = match.Value.Split(' ');
    69. Int64 num1 = Int64.Parse(numbers[0]);
    70. Int64 num2 = Int64.Parse(numbers[1]);
    71. Console.WriteLine($"{num1} - {num1 + num2}");
    72. for (Int64 i = num1; i <= num1 + num2; i++)
    73. {
    74. sw.WriteLine(i.ToString());
    75. }
    76. }
    77. }
    79. }
    80. else
    81. {
    82. seeds.AddRange(line.Replace("seeds: ", "").Split(' ').Select(x => (new Seed() { SeedNumber = Int64.Parse(x) })).ToArray());
    83. }
    85. }
    86. continue;
    87. }
    88. Map currentMap = maps.FirstOrDefault(x => x.Name == processingType);
    89. if (currentMap != null)
    90. {
    91. string[] numbers = line.Split(' ');
    92. long destinationStart = Int64.Parse(numbers[0].ToString());
    93. long sourceStart = Int64.Parse(numbers[1].ToString());
    94. long length = Int64.Parse(numbers[2].ToString());
    96. Mapping mapping = new Mapping();
    97. mapping.SourceStart = sourceStart;
    98. mapping.DestinationStart = destinationStart;
    99. mapping.Length = length;
    100. currentMap.Mapping2.Add(mapping);
    101. }
    102. }
    103. }
    105. public void ProcessSeedsP1()
    106. {
    107. foreach (Map map in maps.OrderBy(x => x.OrderNumber))
    108. {
    109. foreach (Seed seed in seeds)
    110. {
    111. switch (map.Name)
    112. {
    113. case "seed-to-soil":
    114. seed.Soil = GetKeyFromDict(seed.SeedNumber, map.Mapping2);
    115. break;
    116. case "soil-to-fertilizer":
    117. seed.Fertilizer = GetKeyFromDict(seed.Soil, map.Mapping2);
    118. break;
    119. case "fertilizer-to-water":
    120. seed.Water = GetKeyFromDict(seed.Fertilizer, map.Mapping2);
    121. break;
    122. case "water-to-light":
    123. seed.Ligth = GetKeyFromDict(seed.Water, map.Mapping2);
    124. break;
    125. case "light-to-temperature":
    126. seed.Temperature = GetKeyFromDict(seed.Ligth, map.Mapping2);
    127. break;
    128. case "temperature-to-humidity":
    129. seed.Humidity = GetKeyFromDict(seed.Temperature, map.Mapping2);
    130. break;
    131. case "humidity-to-location":
    132. seed.Location = GetKeyFromDict(seed.Humidity, map.Mapping2);
    133. break;
    135. default:
    136. break;
    137. }
    138. }
    139. }
    140. }
    141. public Int64 ProcessSeedsP2()
    142. {
    143. Int64 smallesLocation = Int64.MaxValue;
    144. Parallel.ForEach(File.ReadLines(Path.Combine(Environment.CurrentDirectory, "part2.txt")), seedLine =>
    145. {
    146. Seed seed = new Seed() { SeedNumber = Int64.Parse(seedLine) };
    147. foreach (Map map in maps.OrderBy(x => x.OrderNumber))
    148. {
    149. switch (map.Name)
    150. {
    151. case "seed-to-soil":
    152. seed.Soil = GetKeyFromDict(seed.SeedNumber, map.Mapping2);
    153. break;
    154. case "soil-to-fertilizer":
    155. seed.Fertilizer = GetKeyFromDict(seed.Soil, map.Mapping2);
    156. break;
    157. case "fertilizer-to-water":
    158. seed.Water = GetKeyFromDict(seed.Fertilizer, map.Mapping2);
    159. break;
    160. case "water-to-light":
    161. seed.Ligth = GetKeyFromDict(seed.Water, map.Mapping2);
    162. break;
    163. case "light-to-temperature":
    164. seed.Temperature = GetKeyFromDict(seed.Ligth, map.Mapping2);
    165. break;
    166. case "temperature-to-humidity":
    167. seed.Humidity = GetKeyFromDict(seed.Temperature, map.Mapping2);
    168. break;
    169. case "humidity-to-location":
    170. seed.Location = GetKeyFromDict(seed.Humidity, map.Mapping2);
    171. if (seed.Location < smallesLocation)
    172. {
    173. smallesLocation = seed.Location;
    174. }
    175. break;
    177. default:
    178. break;
    179. }
    180. }
    181. });
    182. return smallesLocation;
    183. }
    185. private long GetKeyFromDict(long searchValue, HashSet<Mapping> dict)
    186. {
    187. Mapping mapping = dict.Where(x => searchValue >= x.SourceStart).Where(x => searchValue <= x.SourceStart + x.Length).FirstOrDefault();
    188. if (mapping == null) return searchValue;
    189. long length = searchValue - mapping.SourceStart;
    190. return mapping.DestinationStart + length;
    191. }
    193. }
    195. class Map
    196. {
    197. public int OrderNumber { get; set; }
    198. public string Name { get; set; }
    199. public Dictionary<long, long> Mapping { get; set; } = new Dictionary<long, long>();
    200. public HashSet<Mapping> Mapping2 { get; set; } = new HashSet<Mapping>();
    201. }
    203. class Mapping
    204. {
    205. public long SourceStart { get; set; }
    206. public long DestinationStart { get; set; }
    207. public long Length { get; set; }
    209. }
    211. class Seed
    212. {
    213. public long SeedNumber { get; set; }
    214. public long Soil { get; set; } = 0;
    215. public long Fertilizer { get; set; } = 0;
    216. public long Water { get; set; } = 0;
    217. public long Ligth { get; set; } = 0;
    218. public long Temperature { get; set; } = 0;
    219. public long Humidity { get; set; } = 0;
    220. public long Location { get; set; } = 0;
    221. }
    223. }
    Grüße , xChRoNiKx

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

    Wie lange hat der Durchgang gedauert?
    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.

    Ich kann als Mod sehen, dass der Edit kurz nach meiner Frage kam ;)
    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.

    Heute nur Mathe
    D6 Part 1

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim input = IO.File.ReadAllLines(FilePathOfData)
    3. Dim times = input(0).Substring(5).Split(" "c, StringSplitOptions.RemoveEmptyEntries).Select(Function(s) Integer.Parse(s))
    4. Dim distances = input(1).Substring(9).Split(" "c, StringSplitOptions.RemoveEmptyEntries).Select(Function(s) Integer.Parse(s))
    5. Dim result = times.Zip(distances, AddressOf FindIntSpaceBetweenZeroes).Aggregate(Function(x, y) x * y)
    6. End Sub
    7. Private Function FindIntSpaceBetweenZeroes(x As Long, y As Long) As Integer
    8. Return Math.Floor(x / 2 + Math.Sqrt(x ^ 2 / 4 - y)) - Math.Ceiling(x / 2 - Math.Sqrt(x ^ 2 / 4 - y)) + 1
    9. End Function

    D6 Part 2

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim input = IO.File.ReadAllLines(FilePathOfData)
    3. Dim t = CLng(input(0).Substring(5).Replace(" "c, String.Empty))
    4. Dim s = CLng(input(1).Substring(9).Replace(" "c, String.Empty))
    5. Dim result = FindIntSpaceBetweenZeroes(t, s)
    6. End Sub

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

    Der Tag war einfach. Das ist beides mit einem Schlag erledigt.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Friend Class FrmMain
    3. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim Values = Await Threading.Tasks.Task.Run(Function() New ValueCalculatorForDay6().GetValuesFor("input2.txt"))
    5. MessageBox.Show(Values.Part1Value.ToString)
    6. MessageBox.Show(Values.Part2Value.ToString)
    7. End Sub
    9. End Class
    11. Friend Class ValueCalculatorForDay6
    13. Private ReadOnly Races As New List(Of Race)
    14. Private ReadOnly AcceleratorButtonPressDurationsToWin As New List(Of IEnumerable(Of Long))
    16. Function GetValuesFor(FilePath As String) As (Part1Value As Long, Part2Value As Long)
    17. Dim RawDataLines = GetRawDataFrom(FilePath)
    18. ParseRawData(RawDataLines)
    19. RetrieveAcceleratorButtonPressDurationsToWinAllRaces()
    20. Return (GetProductOfAcceleratorButtonPressDurations, 0)
    21. End Function
    23. Private Function GetRawDataFrom(FilePath As String) As IEnumerable(Of String)
    24. Return IO.File.ReadAllLines(FilePath)
    25. End Function
    27. Private Sub ParseRawData(RawDataLines As IEnumerable(Of String))
    28. Dim Times = RawDataLines(0).Split({":"c, " "c}, StringSplitOptions.RemoveEmptyEntries).Skip(1).Select(Function(x) Long.Parse(x))
    29. Dim Records = RawDataLines(1).Split({":"c, " "c}, StringSplitOptions.RemoveEmptyEntries).Skip(1).Select(Function(x) Long.Parse(x))
    31. For i = 0 To Times.Count - 1
    32. Races.Add(New Race(Times(i), Records(i)))
    33. Next
    34. End Sub
    36. Private Sub RetrieveAcceleratorButtonPressDurationsToWinAllRaces()
    37. AcceleratorButtonPressDurationsToWin.AddRange(Races.Select(Function(x) x.GetAcceleratorButtonPressDurationToWin))
    38. End Sub
    40. Private Function GetProductOfAcceleratorButtonPressDurations() As Long
    41. Dim Result = 1
    42. For Each AcceleratorButtonPressDurationToWin In AcceleratorButtonPressDurationsToWin
    43. Result *= AcceleratorButtonPressDurationToWin.Count
    44. Next
    45. Return Result
    46. End Function
    48. End Class
    50. Friend Class Race
    51. Private ReadOnly DurationInMilliseconds As Long
    52. Private ReadOnly DistanceToBeat As Long
    54. Sub New(DurationInMilliseconds As Long, DistanceToBeat As Long)
    55. Me.DurationInMilliseconds = DurationInMilliseconds
    56. Me.DistanceToBeat = DistanceToBeat
    57. End Sub
    59. Function GetAcceleratorButtonPressDurationToWin() As IEnumerable(Of Long)
    60. Dim AcceleratorButtonPressDurationsToWin As New List(Of Long)
    61. For i = 0 To DurationInMilliseconds - 1
    62. Dim TimeToDrive = DurationInMilliseconds - i
    63. Dim ReachableDistance = TimeToDrive * i
    64. If ReachableDistance > DistanceToBeat Then AcceleratorButtonPressDurationsToWin.Add(i)
    65. Next
    66. Return AcceleratorButtonPressDurationsToWin
    67. End Function
    69. 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.

    Day 6 2023

    Part 1

    C#-Quellcode

    1. private static void Part01()
    2. {
    4. var src = Source().Select(s => s.Split(' ',
    5. StringSplitOptions.RemoveEmptyEntries).Skip(1).Select(int.Parse));
    6. var datas = src.First().Zip(src.Last(), (t, d) => (t, d));
    8. var result = new List<int>();
    9. foreach (var (time, distance) in datas)
    10. {
    11. var tmp = new List<int>();
    12. for (var i = 1; i < time; i++)
    13. if (i * (time - i) > distance)
    14. tmp.Add(i);
    15. if (tmp.Count > 0) result.Add(tmp.Count);
    16. }
    17. Console.WriteLine($"{nameof(Part01)}: {result.Aggregate(1, (a, b) => a * b)}");
    18. }

    Part 2

    C#-Quellcode

    1. private static void Part02()
    2. {
    4. var src = Source().Select(s => string.Join("", s.Split(' ',
    5. StringSplitOptions.RemoveEmptyEntries).Skip(1))).Select(long.Parse);
    6. var time = src.First();
    7. var distance = src.Last();
    8. var result = new List<long>();
    9. for (var i = 1; i < time; i++)
    10. if (i * (time - i) > distance)
    11. result.Add(i);
    13. Console.WriteLine($"{nameof(Part02)}: {result.Count}");
    14. }

    Source

    C#-Quellcode

    1. private static string[] Source() =>
    2. [
    3. "Time: 7 15 30",
    4. "Distance: 9 40 200",
    5. ];
    7. private static string[] Source2() =>
    8. [
    9. "Time: 71530",
    10. "Distance: 940200",
    11. ];


    Challenge

    C#-Quellcode

    1. private static void Day06Stress()
    2. {
    3. var src = SourceStress().Select(s => s.Split(' ',
    4. StringSplitOptions.RemoveEmptyEntries).Skip(1).Select(long.Parse));
    5. var datas = src.First().Zip(src.Last(), (t, d) => (t, d));
    7. Int128 result = 1;
    8. foreach (var (time, distance) in datas)
    9. {
    10. // -x^2 + time * x - distance > 0.
    11. var (x1, x2) = SolveEq(-1, time, -distance);
    12. var minx = (Int128)Math.Floor(x1) + 1;
    13. var maxx = (Int128)Math.Ceiling(x2) - 1;
    14. result *= maxx - minx + 1;
    15. }
    17. Console.WriteLine($"{nameof(Day06Stress)}_Part1: {result}");
    19. var newsrc = SourceStress().Select(s => string.Join("", s.Split(' ',
    20. StringSplitOptions.RemoveEmptyEntries).Skip(1))).Select(Int128.Parse);
    21. var t = newsrc.First();
    22. var d = newsrc.Last();
    23. {
    24. result = 0; ;
    25. // -x^2 + time * x - distance > 0.
    26. var (x1, x2) = SolveEq(-1, t, -d);
    27. var minx = (Int128)Math.Floor(x1) + 1;
    28. var maxx = (Int128)Math.Ceiling(x2) - 1;
    29. result = maxx - minx + 1;
    30. }
    31. Console.WriteLine($"{nameof(Day06Stress)}_Part2: {result}");
    33. }
    35. // solves ax^2 + bx + c = 0 (with two roots)
    36. private static (double, double) SolveEq(Int128 a, Int128 b, Int128 c)
    37. {
    38. var r = b * b - 4 * a * c;
    39. var d = Math.Sqrt((double)r);
    40. var x1 = (-(double)b - d) / (double)(2 * a);
    41. var x2 = (-(double)b + d) / (double)(2 * a);
    42. return (Math.Min(x1, x2), Math.Max(x1, x2));
    43. }
    45. private static string[] SourceStress() =>
    46. [
    47. "Time: 56 97 77 93 67 71 86 91",
    48. "Distance: 499 2210 1097 1440 603 753 1232 997",
    49. ];

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

    War leider die letzten Tage krank, habe jetzt mal bis Tag 5 alles nachgeholt.^^
    Tag 3
    Spoiler anzeigen

    C#-Quellcode

    1. using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day3\input.txt");
    2. using StreamReader sr = new(fs);
    4. int y = 0;
    5. List<V> schema = new();
    6. List<S> symbols = new();
    7. while (!sr.EndOfStream)
    8. {
    9. var lineSpan = sr.ReadLine().AsSpan();
    10. bool parsingNumber = false;
    11. V? v = null;
    13. for (int x = 0; x < lineSpan.Length; ++x)
    14. {
    15. if ((lineSpan[x] >= 48) && (lineSpan[x] <= 57))
    16. {
    17. if (!parsingNumber) v = new(x, y);
    18. v!.Value.Add(lineSpan[x]);
    19. parsingNumber = true;
    20. continue;
    21. }
    22. else
    23. {
    24. if (parsingNumber)
    25. {
    26. v!.EndIndex = x - 1;
    27. schema.Add(v);
    28. parsingNumber = false;
    29. }
    31. if (lineSpan[x] == '.') continue;
    33. symbols.Add(new(x, y, lineSpan[x]));
    34. }
    35. }
    37. if (parsingNumber)
    38. {
    39. v!.EndIndex = lineSpan.Length - 1;
    40. schema.Add(v);
    41. }
    43. ++y;
    44. }
    46. int total = 0;
    47. #region Part1
    48. foreach (var v in schema)
    49. {
    50. if (HasAdjacentSymbol(v.StartIndex, v.EndIndex, v.Y))
    51. total += int.Parse(string.Join("", v.Value));
    52. }
    53. #endregion
    55. #region Part2
    56. foreach (var s in symbols)
    57. {
    58. if (s.v != '*') continue;
    60. total += CalculateGearRatio(s.x, s.y);
    61. }
    62. #endregion
    64. System.Console.WriteLine(total);
    66. bool HasAdjacentSymbol(int x1, int x2, int y)
    67. {
    68. foreach (var s in symbols)
    69. {
    70. if (Math.Abs(s.y - y) > 1) continue;
    71. for (int i = x1; i <= x2; ++i)
    72. {
    73. if (Math.Abs(i - s.x) <= 1) return true;
    74. }
    75. }
    77. return false;
    78. }
    80. int CalculateGearRatio(int x, int y)
    81. {
    82. int idx = 0;
    83. int[] gearValues = new int[2];
    84. foreach (var s in schema)
    85. {
    86. if (Math.Abs(s.Y - y) > 1) continue;
    87. for (int i = s.StartIndex; i <= s.EndIndex; ++i)
    88. {
    89. if (Math.Abs(i - x) <= 1)
    90. {
    91. if (idx > 1) return 0;
    92. gearValues[idx] = int.Parse(string.Join("", s.Value));
    93. ++idx;
    94. break;
    95. }
    96. }
    97. }
    99. return gearValues[0] * gearValues[1];
    100. }
    102. class V
    103. {
    104. public V(int x, int y)
    105. {
    106. StartIndex = x;
    107. Y = y;
    108. }
    109. public int StartIndex { get; set; }
    110. public int EndIndex { get; set; }
    111. public int Y { get; set; }
    112. public List<char> Value { get; set; } = new();
    113. }
    115. record struct S(int x, int y, char v);


    Tag 4
    Part 1
    Spoiler anzeigen

    C#-Quellcode

    1. using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day4\input.txt");
    2. using StreamReader sr = new(fs);
    4. int total = 0;
    5. while (!sr.EndOfStream)
    6. {
    7. var lineSpan = sr.ReadLine().AsSpan();
    8. List<int> winningNumbers = new();
    9. List<int> cardsOnHand = new();
    10. // winning numbers
    11. for (int i = lineSpan.IndexOf(':') + 2; i < lineSpan.IndexOf('|') - 1; i += 3)
    12. {
    13. winningNumbers.Add(int.Parse(lineSpan[i..(i + 2)]));
    14. }
    16. int count = 0;
    17. for (int i = lineSpan.IndexOf('|') + 2; i < lineSpan.Length - 1; i += 3)
    18. {
    19. int c = int.Parse(lineSpan[i..(i + 2)]);
    20. if (winningNumbers.Contains(c))
    21. ++count;
    22. }
    24. if (count > 0)
    25. total += 1 << (count - 1);
    26. }
    27. System.Console.WriteLine(total);


    Part 2
    Spoiler anzeigen

    C#-Quellcode

    1. using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day4\input.txt");
    2. using StreamReader sr = new(fs);
    4. List<C> deckCounter = new();
    5. while (!sr.EndOfStream)
    6. {
    7. var lineSpan = sr.ReadLine().AsSpan();
    8. List<int> winningNumbers = new();
    9. List<int> cardsOnHand = new();
    11. for (int i = lineSpan.IndexOf(':') + 2; i < lineSpan.IndexOf('|') - 1; i += 3)
    12. {
    13. winningNumbers.Add(int.Parse(lineSpan[i..(i + 2)]));
    14. }
    16. int count = 0;
    17. for (int i = lineSpan.IndexOf('|') + 2; i < lineSpan.Length - 1; i += 3)
    18. {
    19. int c = int.Parse(lineSpan[i..(i + 2)]);
    20. if (winningNumbers.Contains(c))
    21. ++count;
    22. }
    24. deckCounter.Add(new(count, 1));
    25. }
    27. for (int i = 0; i < deckCounter.Count; ++i)
    28. {
    29. int copyCount = 0;
    30. do
    31. {
    32. ++copyCount;
    33. for (int j = 1; j <= deckCounter[i].Won; ++j)
    34. {
    35. deckCounter[i + j].Total++;
    36. deckCounter[i + j].Copy++;
    37. }
    38. }
    39. while (copyCount <= deckCounter[i].Copy);
    40. }
    41. System.Console.WriteLine(deckCounter.Sum(d => d.Total));
    43. class C
    44. {
    45. public int Won { get; set; }
    46. public int Copy { get; set; }
    47. public int Total { get; set; }
    48. public C(int won, int total)
    49. {
    50. Won = won;
    51. Total = total;
    52. }
    53. }


    Tag 5
    Part 1
    Spoiler anzeigen

    C#-Quellcode

    1. using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day5\input.txt");
    2. using StreamReader sr = new(fs);
    4. List<long> seeds = new();
    5. Dictionary<string, List<long[]>> maps = new();
    6. List<string> types = new();
    8. string type = string.Empty;
    10. while (!sr.EndOfStream)
    11. {
    12. var lineSpan = sr.ReadLine().AsSpan();
    13. if (lineSpan.Length == 0) continue;
    14. int colonIndex = lineSpan.IndexOf(':');
    16. if (colonIndex > -1)
    17. {
    18. type = lineSpan[..colonIndex].ToString();
    19. if (type == "seeds")
    20. {
    21. ExtractSeeds(lineSpan[(colonIndex + 2)..]);
    22. }
    23. else
    24. types.Add(type);
    25. }
    26. else
    27. {
    28. SplitMap(type, lineSpan);
    29. }
    30. }
    32. long minLocation = 0;
    33. int typeIdx = 0;
    34. foreach (long seed in seeds)
    35. {
    36. typeIdx = 0;
    37. long currentLocation = GetLocation(seed);
    38. if ((currentLocation < minLocation) || (minLocation == 0))
    39. minLocation = currentLocation;
    40. }
    42. System.Console.WriteLine(minLocation);
    44. long GetLocation(long seed)
    45. {
    46. long searchValue = seed;
    47. while (typeIdx < types.Count)
    48. {
    49. searchValue = GetMapValue(types[typeIdx], searchValue);
    50. ++typeIdx;
    51. }
    52. return searchValue;
    53. }
    55. long GetMapValue(string type, long searchValue)
    56. {
    57. var v = maps[type];
    58. foreach (long[] x in v)
    59. {
    60. if (x[1] > searchValue || (x[1] + (x[2] - 1)) < searchValue)
    61. {
    62. continue;
    63. }
    65. return x[0] + searchValue - x[1];
    66. }
    67. return searchValue;
    68. }
    70. void ExtractSeeds(ReadOnlySpan<char> line)
    71. {
    72. Range[] ranges = new Range[line.Count(' ') + 1];
    73. if (line.Split(ranges, ' ') <= 0) return;
    75. foreach (Range r in ranges)
    76. {
    77. seeds.Add(long.Parse(line[r]));
    78. }
    79. }
    81. void SplitMap(string type, ReadOnlySpan<char> line)
    82. {
    83. Range[] ranges = new Range[3];
    84. line.Split(ranges, ' ');
    86. long[] values = new long[3];
    87. for (int i = 0; i < ranges.Length; ++i)
    88. {
    89. values[i] = long.Parse(line[ranges[i]]);
    90. }
    92. if (!maps.ContainsKey(type))
    93. maps.Add(type, new() { values });
    94. else
    95. maps[type].Add(values);
    96. }


    Part 2
    Spoiler anzeigen

    Habe ich etwas parallelisiert - lief dann in 9m 51.208s - Vielleicht gehts noch schneller, oder hübscher. Kp.

    C#-Quellcode

    1. using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day5\input.txt");
    2. using StreamReader sr = new(fs);
    4. List<long> seeds = new();
    5. Dictionary<string, List<long[]>> maps = new();
    6. List<string> types = new();
    8. string type = string.Empty;
    10. while (!sr.EndOfStream)
    11. {
    12. var lineSpan = sr.ReadLine().AsSpan();
    13. if (lineSpan.Length == 0) continue;
    14. int colonIndex = lineSpan.IndexOf(':');
    16. if (colonIndex > -1)
    17. {
    18. type = lineSpan[..colonIndex].ToString();
    19. if (type == "seeds")
    20. {
    21. ExtractSeeds(lineSpan[(colonIndex + 2)..]);
    22. }
    23. else
    24. types.Add(type);
    25. }
    26. else
    27. {
    28. SplitMap(type, lineSpan);
    29. }
    30. }
    32. long minLocation = 0;
    33. object o = new();
    35. for (int i = 0; i < seeds.Count - 1; i += 2)
    36. {
    37. long dest = seeds[i] + seeds[i + 1] - 1;
    38. Parallel.For(seeds[i], dest, new ParallelOptions { MaxDegreeOfParallelism = 10 }, j =>
    39. {
    40. long currentLocation = GetLocation(j);
    41. lock (o)
    42. {
    43. if ((currentLocation < minLocation) || (minLocation == 0))
    44. minLocation = currentLocation;
    45. }
    46. });
    47. }
    49. System.Console.WriteLine(minLocation);
    51. long GetLocation(long seed)
    52. {
    53. long searchValue = seed;
    54. int typeIdx = 0;
    55. while (typeIdx < types.Count)
    56. {
    57. searchValue = GetMapValue(types[typeIdx], searchValue);
    58. ++typeIdx;
    59. }
    60. return searchValue;
    61. }

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

    VaporiZed schrieb:

    Der Tag war einfach


    Ja sehe ich auch so:

    Tag06
    Beides in einem:
    Spoiler anzeigen
    ​

    C#-Quellcode

    1. ​using System.Text.RegularExpressions;
    3. namespace Tag06
    4. {
    5. internal class Program
    6. {
    7. static void Main(string[] args)
    8. {
    9. string[] exampleFile = File.ReadAllLines("Example.txt");
    10. string[] inputFile = File.ReadAllLines("Input.txt");
    12. Console.WriteLine($"Example: {Calculate(exampleFile)}");
    13. Console.WriteLine($"Example2: {Calculate(exampleFile, true)}");
    14. Console.WriteLine($"Input Part 1: {Calculate(inputFile)}");
    15. Console.WriteLine($"Input Part 2: {Calculate(inputFile,true)}");
    16. }
    18. static long Calculate(string[] lines, bool p2 = false)
    19. {
    20. long sum = 1;
    21. long[] times = null;
    22. long[] distances = null;
    23. if (!p2)
    24. {
    25. times = Regex.Matches(lines[0].Split(':')[1], @"(\d)+").Select(x => long.Parse(x.Value)).ToArray();
    26. distances = Regex.Matches(lines[1].Split(':')[1], @"(\d)+").Select(x => long.Parse(x.Value)).ToArray();
    27. } else
    28. {
    29. times = Regex.Matches(lines[0].Split(':')[1].Replace(" ", ""), @"(\d)+").Select(x => long.Parse(x.Value)).ToArray();
    30. distances = Regex.Matches(lines[1].Split(':')[1].Replace(" ", ""), @"(\d)+").Select(x => long.Parse(x.Value)).ToArray();
    31. }
    33. for (long i = 0; i < times.Length; i++)
    34. {
    35. int totalWins = 0;
    36. long time = times[i];
    37. long distance = distances[i];
    38. for (long t = 1; t <= time; t++)
    39. {
    40. long traveled = t * (time - t);
    41. if( traveled > distance )
    42. {
    43. totalWins++;
    44. }
    45. }
    46. sum *= totalWins;
    47. }
    48. return sum;
    49. }
    50. }
    51. }
    Grüße , xChRoNiKx

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

    Und dann haben wir noch Tag 6

    Spoiler anzeigen
    ​

    C#-Quellcode

    1. ​using System.Text.RegularExpressions;
    3. using FileStream fs = File.OpenRead(@"D:\Dev\net\AdventOfCode\2023\Day6\input.txt");
    4. using StreamReader sr = new(fs);
    6. int total = 1;
    7. const string pattern = "\\d+";
    8. Regex r = new(pattern, RegexOptions.Compiled);
    9. List<long> times = new();
    10. List<long> distances = new();
    11. int line = 0;
    12. while (!sr.EndOfStream)
    13. {
    14. var lineSpan = sr.ReadLine().AsSpan();
    15. var values = lineSpan[(lineSpan.IndexOf(':') + 1)..].TrimStart();
    17. if (r.IsMatch(lineSpan))
    18. {
    19. int len = 0;
    20. foreach (var m in r.EnumerateMatches(lineSpan))
    21. {
    22. len += m.Length;
    23. #region Part1
    24. int v = int.Parse(lineSpan[m.Index..(m.Index + m.Length)]);
    25. if (line == 0)
    26. times.Add(v);
    27. else
    28. distances.Add(v);
    29. #endregion
    30. }
    32. #region Part2
    33. long v = long.Parse(string.Create(len, values.ToString(), (s, value) =>
    34. {
    35. var p = value.AsSpan();
    36. int idx = 0;
    37. for (int i = 0; i < p.Length; ++i)
    38. {
    39. if (p[i] == ' ') continue;
    40. s[idx++] = p[i];
    41. }
    42. }));
    44. if (line == 0)
    45. times.Add(v);
    46. else
    47. distances.Add(v);
    48. #endregion
    49. }
    50. ++line;
    51. }
    53. for (int i = 0; i < times.Count; ++i)
    54. {
    55. int p = 0;
    56. for (int j = 1; j < times[i] - 1; j++)
    57. {
    58. if ((j * (times[i] - j)) > distances[i])
    59. p++;
    60. else if (p > 0)
    61. break;
    62. }
    64. total *= p;
    65. }
    67. System.Console.WriteLine(total);

    Wer sich interessiert, habe Tag 5 Part 2 nun angeschaut: Es war das typische "LINQ wird erst ausgeführt, wenns gebraucht wird". Habe also .ToArray vorgeklatscht, wo ging und dadurch erstmal Faktor 7-8 rausgekriegt.
    Das läuft sauber in etwas über 1 Minute.
    Dann habe ich aber die Suche des Minimums manipuliert, im Prinzip das händische Herantasten simuliert. Das liefert das Ergebnis sofort (~50 ms), aber dadurch eine eher unschöne Lösung.

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

Facebook
Telefonspende