Advent of Code 2023

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

    D16 Part 1

    VB.NET-Quellcode

    1. Private curGrid As Char()()
    2. Private chkList As New List(Of Current)
    4. Sub Main()
    5. Dim input = IO.File.ReadAllLines(FilePathOfData).Select(Function(l) l.ToCharArray).ToArray
    6. curGrid = input
    7. WalkGrid(Direction.East, 0, 0)
    8. Dim result = chkList.Cast(Of Object).Distinct.Count
    9. End Sub
    11. Private Sub WalkGrid(dir As Direction, y As Integer, x As Integer)
    12. Dim cury = y
    13. Dim curx = x
    14. Dim curdir = dir
    15. Dim cur = New Current With {.X = curx, .Y = cury, .Dir = curdir}
    16. While Not chkList.Contains(cur)
    17. chkList.Add(cur)
    18. curdir = CheckNext(curdir, cury, curx)
    19. Select Case curdir
    20. Case Direction.North
    21. cury -= 1
    22. Case Direction.West
    23. curx -= 1
    24. Case Direction.South
    25. cury += 1
    26. Case Else
    27. curx += 1
    28. End Select
    29. If cury < 0 OrElse cury >= curGrid.Length OrElse curx < 0 OrElse curx >= curGrid(0).Length Then Exit While
    30. cur = New Current With {.X = curx, .Y = cury, .Dir = curdir}
    31. End While
    32. End Sub
    34. Private Function CheckNext(curDir As Direction, cury As Integer, curx As Integer) As Direction
    35. Dim c = curGrid(cury)(curx)
    36. If c = "/"c Then
    37. curDir = CType(If(curDir Mod 2 = 1, curDir + 1, curDir + 3) Mod 4, Direction)
    38. ElseIf c = "\"c Then
    39. curDir = CType(If(curDir Mod 2 = 0, curDir + 1, curDir + 3) Mod 4, Direction)
    40. ElseIf c = "-"c AndAlso curDir Mod 2 = 0 Then
    41. WalkGrid(CType((curDir + 1) Mod 4, Direction), cury, curx)
    42. curDir = CType((curDir + 3) Mod 4, Direction)
    43. ElseIf c = "|"c AndAlso curDir Mod 2 = 1 Then
    44. WalkGrid(CType((curDir + 3) Mod 4, Direction), cury, curx)
    45. curDir = CType((curDir + 1) Mod 4, Direction)
    46. End If
    47. Return curDir
    48. End Function
    50. Friend Enum Direction
    51. North
    52. West
    53. South
    54. East
    55. End Enum
    57. Friend Class Current
    58. Implements IEquatable(Of Current)
    59. Property Y As Integer
    60. Property X As Integer
    61. Property Dir As Direction
    62. Public Overloads Function Equals(other As Current) As Boolean Implements IEquatable(Of Current).Equals
    63. Return _Y = other.Y AndAlso _X = other.X AndAlso _Dir = other.Dir
    64. End Function
    65. Public Overrides Function Equals(obj As Object) As Boolean
    66. Return _Y = DirectCast(obj, Current).Y AndAlso _X = DirectCast(obj, Current).X
    67. End Function
    68. Public Overrides Function GetHashCode() As Integer
    69. Return 1000 * _Y + _X
    70. End Function
    71. End Class

    D16 Part2
    Läuft ca. 4 Minuten, habe aber schon eine Idee wie ich den Ansatz aus Part 1 beschleunige, dann sollte Part 2 auch ok sein.
    Den größten Teil der hier geprüft wird kann man überspringen.

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim input = IO.File.ReadAllLines(FilePathOfData).Select(Function(l) l.ToCharArray).ToArray
    3. curGrid = input
    4. WalkGrid(Direction.East, 0, 0)
    5. Dim resultPart1 = chkList.Cast(Of Object).Distinct.Count
    6. Dim resutlPart2 = resultPart1
    7. chkList.Clear()
    8. For y = 1 To curGrid(0).Length - 1
    9. WalkGrid(Direction.East, y, 0)
    10. Dim chk = chkList.Cast(Of Object).Distinct.Count
    11. If chk > resutlPart2 Then resutlPart2 = chk
    12. chkList.Clear()
    13. Next
    14. For x = 0 To curGrid(0).Length - 1
    15. WalkGrid(Direction.South, 0, x)
    16. Dim chk = chkList.Cast(Of Object).Distinct.Count
    17. If chk > resutlPart2 Then resutlPart2 = chk
    18. chkList.Clear()
    19. Next
    20. For x = 0 To curGrid(0).Length - 1
    21. WalkGrid(Direction.North, curGrid.Length - 1, x)
    22. Dim chk = chkList.Cast(Of Object).Distinct.Count
    23. If chk > resutlPart2 Then resutlPart2 = chk
    24. chkList.Clear()
    25. Next
    26. For y = 0 To curGrid(0).Length - 1
    27. WalkGrid(Direction.West, y, curGrid(0).Length - 1)
    28. Dim chk = chkList.Cast(Of Object).Distinct.Count
    29. If chk > resutlPart2 Then resutlPart2 = chk
    30. chkList.Clear()
    31. Next
    32. End Sub

    :cursing: Part 1 Testdaten ok, Part 2 Realdaten ok, Part 2 Testdaten ok, Part 2 Realdaten fail
    Dauer bei mir 30 Sekunden.

    ##########

    :whistling: Wenn man dauernd die Richtungen Left und Right verwechselt …
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Class ValueCalculatorForDay16
    3. Private ReadOnly Mirrors As New List(Of Mirror)
    4. Private ReadOnly Rays As New List(Of Ray)
    5. Private MaximumX As Integer
    6. Private MaximumY As Integer
    7. Private ReadOnly VisitedPositions As New Dictionary(Of String, VisitedPosition)
    8. Private ReadOnly EnergizedPositions As New List(Of Position)
    9. Private Part1Value As Integer
    10. Private Part2Value As Integer
    11. Private TempValue As Integer
    13. Function GetValueFor(FilePath As String) As (Integer, Integer)
    14. BuildMirrorsFrom(FilePath)
    15. AddDefaultRay()
    16. TraceRays(True)
    17. RetrievePart2Value()
    18. Return (Part1Value, Part2Value)
    19. End Function
    21. Private Sub RetrievePart2Value()
    22. For x = 0 To MaximumX
    23. Rays.Clear()
    24. VisitedPositions.Clear()
    25. EnergizedPositions.Clear()
    26. TempValue = 0
    27. Rays.Add(New Ray With {.Direction = Direction.Down, .X = x, .Y = 0})
    28. TraceRays(False)
    29. Part2Value = Math.Max(Part2Value, TempValue)
    30. Next
    32. For x = 0 To MaximumX
    33. Rays.Clear()
    34. VisitedPositions.Clear()
    35. EnergizedPositions.Clear()
    36. TempValue = 0
    37. Rays.Add(New Ray With {.Direction = Direction.Up, .X = x, .Y = MaximumY})
    38. TraceRays(False)
    39. Part2Value = Math.Max(Part2Value, TempValue)
    40. Next
    42. For y = 0 To MaximumY
    43. Rays.Clear()
    44. VisitedPositions.Clear()
    45. EnergizedPositions.Clear()
    46. TempValue = 0
    47. Rays.Add(New Ray With {.Direction = Direction.Right, .X = 0, .Y = y})
    48. TraceRays(False)
    49. Part2Value = Math.Max(Part2Value, TempValue)
    50. Next
    52. For y = 0 To MaximumY
    53. Rays.Clear()
    54. VisitedPositions.Clear()
    55. EnergizedPositions.Clear()
    56. TempValue = 0
    57. Rays.Add(New Ray With {.Direction = Direction.Left, .X = MaximumX, .Y = y})
    58. TraceRays(False)
    59. Part2Value = Math.Max(Part2Value, TempValue)
    60. Next
    62. End Sub
    64. Private Sub AddDefaultRay()
    65. Rays.Add(New Ray With {.Direction = Direction.Right, .X = 0, .Y = 0})
    66. End Sub
    68. Private Sub BuildMirrorsFrom(FilePath As String)
    69. Dim FileLines = IO.File.ReadAllLines(FilePath)
    70. For y = 0 To FileLines.Count - 1
    71. For x = 0 To FileLines(0).Count - 1
    72. Dim Character = FileLines(y)(x)
    73. If Character = "/"c Then Mirrors.Add(New Mirror With {.Power = 0, .Type = MirrorType.LeftToDownAndRightToUpAndDownToLeftAndUpToRight, .X = x, .Y = y})
    74. If Character = "\"c Then Mirrors.Add(New Mirror With {.Power = 0, .Type = MirrorType.LeftToUpAndRightToDownAndDownToRightAndUpToLeft, .X = x, .Y = y})
    75. If Character = "|"c Then Mirrors.Add(New Mirror With {.Power = 0, .Type = MirrorType.UpDownSplit, .X = x, .Y = y})
    76. If Character = "-"c Then Mirrors.Add(New Mirror With {.Power = 0, .Type = MirrorType.LeftRightSplit, .X = x, .Y = y})
    77. Next
    78. Next
    79. MaximumX = FileLines(0).Count - 1
    80. MaximumY = FileLines.Count - 1
    81. End Sub
    83. Private Sub TraceRays(IsPart1 As Boolean)
    84. Do Until Rays.Count = 0
    85. EnergizePosition(Rays.First)
    86. RememberPosition(Rays.First)
    87. InteractWithMirrors(Rays.First)
    88. MoveRay(Rays.First)
    90. If IsInLoop(Rays.First) Then
    91. Rays.Remove(Rays.First)
    92. Continue Do
    93. End If
    94. PossiblyRemoveRay(Rays.First)
    95. Loop
    97. If IsPart1 Then
    98. Part1Value = EnergizedPositions.Distinct.Count
    99. Else
    100. TempValue = EnergizedPositions.Distinct.Count
    101. End If
    102. End Sub
    104. Private Function IsInLoop(Ray As Ray) As Boolean
    105. Return VisitedPositions.ContainsKey($"{Ray.X}/{Ray.Y}/{Ray.Direction}")
    106. End Function
    108. Private Sub EnergizePosition(Ray As Ray)
    109. EnergizedPositions.Add(New Position With {.X = Ray.X, .Y = Ray.Y})
    110. End Sub
    112. Private Sub RememberPosition(Ray As Ray)
    113. Dim Key = $"{Ray.X}/{Ray.Y}/{Ray.Direction}"
    114. If Not VisitedPositions.ContainsKey(Key) Then VisitedPositions.Add(Key, New VisitedPosition With {.X = Ray.X, .Y = Ray.Y, .Direction = Ray.Direction})
    115. End Sub
    117. Private Sub MoveRay(Ray As Ray)
    118. If Ray.Direction = Direction.Down Then Ray.Y += 1
    119. If Ray.Direction = Direction.Right Then Ray.X += 1
    120. If Ray.Direction = Direction.Left Then Ray.X -= 1
    121. If Ray.Direction = Direction.Up Then Ray.Y -= 1
    122. End Sub
    124. Private Sub InteractWithMirrors(Ray As Ray)
    125. Dim InteractingMirror = Mirrors.SingleOrDefault(Function(x) x.X = Ray.X AndAlso x.Y = Ray.Y)
    126. If InteractingMirror Is Nothing Then Return
    128. If Ray.Direction = Direction.Up AndAlso InteractingMirror.Type = MirrorType.LeftToDownAndRightToUpAndDownToLeftAndUpToRight Then Ray.Direction = Direction.Right : Return
    129. If Ray.Direction = Direction.Up AndAlso InteractingMirror.Type = MirrorType.LeftToUpAndRightToDownAndDownToRightAndUpToLeft Then Ray.Direction = Direction.Left : Return
    130. If Ray.Direction = Direction.Down AndAlso InteractingMirror.Type = MirrorType.LeftToDownAndRightToUpAndDownToLeftAndUpToRight Then Ray.Direction = Direction.Left : Return
    131. If Ray.Direction = Direction.Down AndAlso InteractingMirror.Type = MirrorType.LeftToUpAndRightToDownAndDownToRightAndUpToLeft Then Ray.Direction = Direction.Right : Return
    132. If (Ray.Direction = Direction.Down OrElse Ray.Direction = Direction.Up) AndAlso InteractingMirror.Type = MirrorType.LeftRightSplit Then Ray.Direction = Direction.Left : Rays.Add(New Ray With {.Direction = Direction.Right, .X = Ray.X, .Y = Ray.Y}) : Return
    134. If Ray.Direction = Direction.Left AndAlso InteractingMirror.Type = MirrorType.LeftToDownAndRightToUpAndDownToLeftAndUpToRight Then Ray.Direction = Direction.Down : Return
    135. If Ray.Direction = Direction.Left AndAlso InteractingMirror.Type = MirrorType.LeftToUpAndRightToDownAndDownToRightAndUpToLeft Then Ray.Direction = Direction.Up : Return
    136. If Ray.Direction = Direction.Right AndAlso InteractingMirror.Type = MirrorType.LeftToDownAndRightToUpAndDownToLeftAndUpToRight Then Ray.Direction = Direction.Up : Return
    137. If Ray.Direction = Direction.Right AndAlso InteractingMirror.Type = MirrorType.LeftToUpAndRightToDownAndDownToRightAndUpToLeft Then Ray.Direction = Direction.Down : Return
    138. If (Ray.Direction = Direction.Left OrElse Ray.Direction = Direction.Right) AndAlso InteractingMirror.Type = MirrorType.UpDownSplit Then Ray.Direction = Direction.Up : Rays.Add(New Ray With {.Direction = Direction.Down, .X = Ray.X, .Y = Ray.Y}) : Return
    139. End Sub
    141. Private Sub PossiblyRemoveRay(Ray As Ray)
    142. If Ray.IsOutOfSpace(MaximumX, MaximumY) Then
    143. Rays.Remove(Ray)
    144. End If
    145. End Sub
    147. End Class
    149. Structure Position
    150. Property X As Integer
    151. Property Y As Integer
    152. End Structure
    154. Class Mirror
    155. Property Type As MirrorType
    156. Property X As Integer
    157. Property Y As Integer
    158. Property Power As Integer
    159. End Class
    161. Class Ray
    162. Property X As Integer
    163. Property Y As Integer
    164. Property Direction As Direction
    166. Function IsOutOfSpace(MaximumX As Integer, MaximumY As Integer) As Boolean
    167. Return X < 0 OrElse X > MaximumX OrElse Y < 0 OrElse Y > MaximumY
    168. End Function
    170. End Class
    172. Enum MirrorType
    173. LeftToDownAndRightToUpAndDownToLeftAndUpToRight
    174. LeftToUpAndRightToDownAndDownToRightAndUpToLeft
    175. UpDownSplit
    176. LeftRightSplit
    177. End Enum
    179. Enum Direction
    180. Up
    181. Down
    182. Left
    183. Right
    184. End Enum
    186. Class VisitedPosition
    187. Property X As Integer
    188. Property Y As Integer
    189. Property Direction As Direction
    190. 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 1 mal editiert, zuletzt von „VaporiZed“ ()

    So nach einem Fehlschlag von Tag 17 ist Tag 18 wieder etwas leichter. Tag 17 hab ich nun eine Idee, die es aber noch zu probieren gilt.

    D18 Part 1

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim input = IO.File.ReadAllLines(FilePathOfData)
    3. Dim instructions = input.Select(AddressOf ExtractInstruction).ToArray
    4. Dim isKonvex = False 'Ist unbestimmt, beides probieren.
    5. Dim directionary As New Dictionary(Of String, Integer()) From {
    6. {"R", {1, 0}},
    7. {"D", {0, 1}},
    8. {"L", {-1, 0}},
    9. {"U", {0, -1}}}
    10. Dim x = 0, y = 0
    11. Dim dirandlengthPrev, dirandlengthCur, dirandlengthNext As String()
    12. dirandlengthPrev = {instructions.Last()(0)}
    13. Dim coords As New List(Of Point) From {GetCorner(New Rectangle(x, y, 1, 1), dirandlengthPrev(0), instructions.First()(0), isKonvex)}
    14. For i = 0 To Input.Length - 2
    15. If i > 0 Then dirandlengthPrev = instructions(i - 1)
    16. dirandlengthCur = instructions(i)
    17. dirandlengthNext = instructions(i + 1)
    18. Dim dir = directionary(dirandlengthCur(0))
    19. Dim length = Integer.Parse(dirandlengthCur(1))
    20. x += dir(0) * length
    21. y += dir(1) * length
    22. Dim rect = New Rectangle(x, y, 1, 1)
    23. If dirandlengthNext(0) = dirandlengthPrev(0) Then isKonvex = Not isKonvex
    24. coords.Add(GetCorner(rect, dirandlengthCur(0), dirandlengthNext(0), isKonvex))
    25. Next
    26. Dim result = gausTrap(coords)
    27. End Sub
    29. Private Function GetCorner(rect As Rectangle, cur As String, nex As String, iskonv As Boolean) As Point
    30. If (cur = "R" AndAlso nex = "D") OrElse (cur = "U" AndAlso nex = "L") Then
    31. Return New Point(If(iskonv, rect.Right, rect.Left), If(iskonv, rect.Top, rect.Bottom))
    32. ElseIf (cur = "R" AndAlso nex = "U") OrElse (cur = "D" AndAlso nex = "L") Then
    33. Return New Point(If(iskonv, rect.Right, rect.Left), If(iskonv, rect.Bottom, rect.Top))
    34. ElseIf (cur = "L" AndAlso nex = "D") OrElse (cur = "U" AndAlso nex = "R") Then
    35. Return New Point(If(iskonv, rect.Left, rect.Right), If(iskonv, rect.Top, rect.Bottom))
    36. ElseIf (cur = "L" AndAlso nex = "U") OrElse (cur = "D" AndAlso nex = "R") Then
    37. Return New Point(If(iskonv, rect.Left, rect.Right), If(iskonv, rect.Bottom, rect.Top))
    38. End If
    39. Return Nothing
    40. End Function
    42. Private Function gausTrap(coords As IEnumerable(Of Point)) As Long
    43. Dim sum As Long
    44. For i = 0 To coords.Count - 1
    45. Dim ip = (i + 1) Mod coords.Count
    46. sum += (coords(i).Y + coords(ip).Y) * CLng(coords(i).X - coords(ip).X)
    47. Next
    48. Return CLng(Math.Abs(sum) / 2)
    49. End Function
    51. Private Function ExtractInstruction(input As String) As String()
    52. Return input.Split(" "c)
    53. End Function

    D18 Part 2
    Funktion ersetzen

    VB.NET-Quellcode

    1. Private Function ExtractInstruction(input As String) As String()
    2. Dim idx = input.IndexOf("#"c) + 1
    3. Dim dir As String
    4. Select Case input.Substring(idx + 5, 1)
    5. Case "0"
    6. dir = "R"
    7. Case "1"
    8. dir = "D"
    9. Case "2"
    10. dir = "L"
    11. Case Else
    12. dir = "U"
    13. End Select
    14. Dim length = Convert.ToInt32(input.Substring(idx, 5), 16).ToString
    15. Return {dir, length}
    16. End Function

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