Advent of Code 2023

VaporiZed · 7. Dezember 2023, 11:05

Part 2 fühlt sich zwar sehr dirty an, aber das Ergebnis passt zumindest

VB.NET-Quellcode

Friend Class ValueCalculatorForDay7
Private ReadOnly CardDecks As New List(Of CardDeck)
Function GetValueFor(FilePath As String, Part As Integer) As Integer
Dim RawDataLines = GetRawDataFrom(FilePath)
ParseRawData(RawDataLines, Part)
SetRanksForCardDecks(Part)
Return GetValueForGame()
End Function
Private Function GetRawDataFrom(FilePath As String) As IEnumerable(Of String)
Return IO.File.ReadAllLines(FilePath)
End Function
Private Sub ParseRawData(RawDataLines As IEnumerable(Of String), Part As Integer)
RawDataLines.ToList.ForEach(Sub(x) CardDecks.Add(New CardDeck(x.Split, Part)))
End Sub
Private Sub SetRanksForCardDecks(Part As Integer)
Dim OrderedCardDeck = CardDecks.OrderBy(Function(x) x.CardDeckType).ThenBy(Function(x) x.TranslatedCardOrder(Part = 2))
For i = 0 To OrderedCardDeck.Count - 1
OrderedCardDeck(i).RankInGame = i + 1
Next
End Sub
Private Function GetValueForGame() As Integer
Return CardDecks.OrderBy(Function(x) x.RankInGame).Sum(Function(x) x.GetValue)
End Function
End Class
Friend Enum CardDeckType
HighCard
OnePair
TwoPair
ThreeOfAKind
FullHouse
FourOfAKind
FiveOfAKind
End Enum
Friend Class CardDeck
Property CardOrder As String
Property CardDeckType As CardDeckType
Property Bid As Integer
Property RankInGame As Integer
Private ReadOnly CardValueMappingsForPart1 As New Dictionary(Of Char, Char) From {{"2"c, "A"c}, {"3"c, "B"c}, {"4"c, "C"c}, {"5"c, "D"c}, {"6"c, "E"c}, {"7"c, "F"c}, {"8"c, "G"c}, {"9"c, "H"c}, {"T"c, "I"c}, {"J"c, "J"c}, {"Q"c, "K"c}, {"K"c, "L"c}, {"A"c, "M"c}}
Private ReadOnly CardValueMappingsForPart2 As New Dictionary(Of Char, Char) From {{"J"c, "A"c}, {"2"c, "B"c}, {"3"c, "C"c}, {"4"c, "D"c}, {"5"c, "E"c}, {"6"c, "F"c}, {"7"c, "G"c}, {"8"c, "H"c}, {"9"c, "I"c}, {"T"c, "J"c}, {"Q"c, "K"c}, {"K"c, "L"c}, {"A"c, "M"c}}
Sub New(RawData As IEnumerable(Of String), Part As Integer)
CardOrder = RawData(0)
Bid = Integer.Parse(RawData(1))
DetermineCardDeckType(Part)
End Sub
Private Sub DetermineCardDeckType(Part As Integer)
Dim IndexPacks As New List(Of IndexPack)
CardOrder.ToList.ForEach(Sub(x) If Not IndexPacks.Any(Function(y) y.Character = x) Then IndexPacks.Add(New IndexPack With {.Character = x, .Occurences = GetOccurencesIn(CardOrder, x)}))
If IndexPacks.Where(Function(x) x.Occurences = 2).Count = 1 Then CardDeckType = CardDeckType.OnePair
If IndexPacks.Where(Function(x) x.Occurences = 2).Count = 2 Then CardDeckType = CardDeckType.TwoPair
If IndexPacks.Any(Function(x) x.Occurences = 3) Then CardDeckType = CardDeckType.ThreeOfAKind
If IndexPacks.Any(Function(x) x.Occurences = 3) AndAlso IndexPacks.Any(Function(x) x.Occurences = 2) Then CardDeckType = CardDeckType.FullHouse
If IndexPacks.Any(Function(x) x.Occurences = 4) Then CardDeckType = CardDeckType.FourOfAKind
If IndexPacks.Any(Function(x) x.Occurences = 5) Then CardDeckType = CardDeckType.FiveOfAKind
If Part = 2 AndAlso CardDeckType <> CardDeckType.FiveOfAKind AndAlso CardOrder.IndexOf("J"c) > -1 Then
If CardDeckType = CardDeckType.FourOfAKind Then CardDeckType = CardDeckType.FiveOfAKind
If CardDeckType = CardDeckType.FullHouse Then CardDeckType = CardDeckType.FiveOfAKind
If CardDeckType = CardDeckType.ThreeOfAKind Then CardDeckType = CardDeckType.FourOfAKind
If CardDeckType = CardDeckType.TwoPair AndAlso IndexPacks.Single(Function(x) x.Occurences = 1).Character = "J"c Then CardDeckType = CardDeckType.FullHouse
If CardDeckType = CardDeckType.TwoPair AndAlso IndexPacks.Any(Function(x) x.Occurences = 2 AndAlso x.Character = "J"c) Then CardDeckType = CardDeckType.FourOfAKind
If CardDeckType = CardDeckType.TwoPair AndAlso IndexPacks.Any(Function(x) x.Occurences = 1 AndAlso x.Character = "J"c) Then CardDeckType = CardDeckType.ThreeOfAKind
If CardDeckType = CardDeckType.OnePair Then CardDeckType = CardDeckType.ThreeOfAKind
If CardDeckType = CardDeckType.HighCard Then CardDeckType = CardDeckType.OnePair
End If
End Sub
Private Function GetOccurencesIn(Text As String, Character As Char) As Integer
Dim Occurences = 0
For i = 0 To Text.Length - 1
If Text(i) = Character Then Occurences += 1
Next
Return Occurences
End Function
Function TranslatedCardOrder(Part As Integer) As String
Dim CardValueMappingsToUse = If(Part = 1, CardValueMappingsForPart1, CardValueMappingsForPart2)
Return CardOrder.Select(Function(x) CardValueMappingsToUse.Single(Function(y) y.Key = x).Value).ToArray
End Function
Function GetValue() As Integer
Return Bid * RankInGame
End Function
End Class
Friend Class IndexPack
Property Character As Char
Property Occurences As Integer
End Class

Bald ist meine arbeitsfreie Woche rum, dann hat sich's mit meinen zeitnahen Posts.

xChRoNiKx · 7. Dezember 2023, 18:46

Also heute war eigentlich einfach... Allerdings hab ich mich bei Part02 glaub ich etwas dumm angestellt. (Im Spoiler warum)
Bin gespannt auf deine Lösung @VaporiZed

/EDIT// @VaporiZed geil da hat jemand genau die gleiche idee gehabt wie ich. Ich hab keine andere Lösung gefunden für Part2 als das so hinzuschreiben.
Ich schau jetzt mal im Reddit vorbei was da abgeht.

Spoiler anzeigen

Ich habe bei Part2 erst gedacht ich könnte einfach nur die "J" zählen und hab gewonnen.
Allerdings ging das dann nicht auf. Also habe ich erstmal ohne das als Joker zu sehen
bestimmt was das nun ist für eine Hand. Und danach dann anhand der Anzahl der J und oder der Hand entschieden den Gewinntype zu ändern.
Gibt es da ne bessere Methode als da selbst die verschiedenen Möglichkeiten zu bestimmen?

C#-Quellcode

using System.Text.RegularExpressions;
namespace Tag07
{
internal class Program
{
static void Main(string[] args)
{
string[] exampleFile = File.ReadAllLines("Example.txt");
string[] inputFile = File.ReadAllLines("Input.txt");
Game gameExample = new Game();
gameExample.ParseFile(exampleFile);
Game gameInput = new Game();
gameInput.ParseFile(inputFile);
Console.WriteLine($"Example: {gameExample.Calculate()}");
Console.WriteLine($"Example2: {gameExample.Calculate(true)}");
Console.WriteLine($"Input Part 1: {gameInput.Calculate()}");
Console.WriteLine($"Input Part 2: {gameInput.Calculate(true)}");
}
}
public class Game
{
public List<Hand> Hands;
public List<Char> Cards = new List<char>() { '2', '3', '4', '5', '6', '7', '8', '9', 'T', 'J', 'Q', 'K', 'A' };
public Dictionary<char, char> CardMappingP1 = new Dictionary<char, char>()
{
{'2', 'A'},
{'3', 'B'},
{'4', 'C'},
{'5', 'D'},
{'6', 'E'},
{'7', 'F'},
{'8', 'G'},
{'9', 'H'},
{'T', 'I'},
{'J', 'J'},
{'Q', 'K'},
{'K', 'L'},
{'A', 'M'}
};
public Dictionary<char, char> CardMappingP2 = new Dictionary<char, char>()
{
{'J', 'A'},
{'2', 'B'},
{'3', 'C'},
{'4', 'D'},
{'5', 'E'},
{'6', 'F'},
{'7', 'G'},
{'8', 'H'},
{'9', 'I'},
{'T', 'J'},
{'Q', 'K'},
{'K', 'L'},
{'A', 'M'}
};
public void ParseFile(string[] lines)
{
Hands = new List<Hand>();
foreach(string line in lines)
{
Hand hand = new Hand();
Match match = Regex.Match(line, "(.*) (\\d+)");
hand.Cards = match.Groups[1].Value;
hand.Value = Int32.Parse(match.Groups[2].Value);
Hands.Add(hand);
}
}
public int Calculate(bool part2 = false)
{
int maxRank = Hands.Count;
int sum = 0;
foreach (Hand hand in Hands)
{
hand.UniqueCards = new Dictionary<char, int>();
hand.WinnerType = WinnerType.HighCard;
foreach(char ch in Cards)
{
hand.UniqueCards.Add(ch, hand.Cards.ToArray().Count(x => x == ch));
}
hand.SetWinnerType(part2);
}
Dictionary<char, char> mapping = (part2) ? CardMappingP2 : CardMappingP1;
foreach (Hand hand in Hands.OrderByDescending(x => x.WinnerType)
.ThenByDescending(x => x.GetCardOrder(mapping)))
{
int tmp = maxRank * hand.Value;
sum+= tmp;
maxRank--;
}
return sum;
}
}
public enum WinnerType
{
FiveOfAKind = 6,
FourOfAKind = 5,
FullHouse = 4,
ThreeOfAKind = 3,
TwoPair = 2,
OnePair = 1,
HighCard = 0,
}
public class Hand
{
public string Cards { get; set; }
public int Value { get; set; }
public Dictionary<char, int> UniqueCards { get; set; } = new Dictionary<char, int>();
public WinnerType WinnerType { get; set; }
public int Rank { get; set; }
public string GetCardOrder(Dictionary<char, char> mapping)
{
return String.Join("", Cards.Select(x =>
mapping.Single(y => y.Key == x)
.Value).ToArray()) ;
}
public void SetWinnerType(bool part2 = false)
{
if (UniqueCards.Max(x => x.Value) == 5)
{
WinnerType = WinnerType.FiveOfAKind;
}
if (UniqueCards.Max(x => x.Value) == 4)
{
WinnerType = WinnerType.FourOfAKind;
}
if (UniqueCards.ContainsValue(3) && UniqueCards.ContainsValue(2))
{
WinnerType = WinnerType.FullHouse;
}
if (UniqueCards.Max(x => x.Value) == 3 && UniqueCards.Count(x => x.Value == 1) == 2)
{
WinnerType = WinnerType.ThreeOfAKind;
}
if (UniqueCards.Count(x => x.Value == 2) == 2)
{
WinnerType = WinnerType.TwoPair;
}
if (UniqueCards.Count(x => x.Value == 2) == 1 && UniqueCards.Count(x => x.Value == 1) == 3)
{
WinnerType = WinnerType.OnePair;
}
if (UniqueCards.Count(x => x.Value == 1) == 5)
{
WinnerType = WinnerType.HighCard;
}
if(part2 && Cards.Contains('J'))
{
if (WinnerType == WinnerType.FourOfAKind) WinnerType = WinnerType.FiveOfAKind;
if (WinnerType == WinnerType.FullHouse) WinnerType = WinnerType.FiveOfAKind;
if (WinnerType == WinnerType.ThreeOfAKind) WinnerType = WinnerType.FourOfAKind;
if (WinnerType == WinnerType.TwoPair)
{
if (UniqueCards['J'] == 2)
{ //A A J J B => A A A A B
WinnerType = WinnerType.FourOfAKind;
}
if (UniqueCards['J'] == 1)
{ //A A B B J => A A A B B
WinnerType = WinnerType.FullHouse;
}
}
if (WinnerType == WinnerType.OnePair) WinnerType = WinnerType.ThreeOfAKind;
if (WinnerType == WinnerType.HighCard) WinnerType = WinnerType.OnePair;
}
}
}
}

VaporiZed · 7. Dezember 2023, 19:31

Wenn zwei Leute unabhängig drauf kommen, kann es nur der richtige Weg sein

Haudruferzappeltnoch · 7. Dezember 2023, 21:24

D7 Part1

Die ThenBy-Funktion hab ich vergessen xD. Bei mir ein schöner Umweg über: die zweite Reihenfolge zuerst, GroupBy.OrderBy.SelectMany...

VB.NET-Quellcode

Private CardValue As New Dictionary(Of Char, Integer) From {
{"2"c, 0}, {"3"c, 1}, {"4"c, 2}, {"5"c, 3}, {"6"c, 4},
{"7"c, 5}, {"8"c, 6}, {"9"c, 7}, {"T"c, 8}, {"J"c, 9},
{"Q"c, 10}, {"K"c, 11}, {"A"c, 12}}
Sub Main()
Dim input = IO.File.ReadAllLines(FilePathOfData)
Dim Plays = input.Select(Function(l) New Play(l.Split(" "c)))
Dim PlaysOrderedByRank = Plays.OrderBy(AddressOf HandOrderValue).GroupBy(Function(p) p.Type).OrderBy(Function(g) g.Key).SelectMany(Function(g) g)
Dim result = PlaysOrderedByRank.Select(Function(p, r) (r + 1) * p.Bid).Sum
End Sub
Private Function HandOrderValue(p As Play) As Integer
Dim retVal As Integer
For i = 0 To 4
retVal = retVal * 13 + CardValue(p.Hand(i))
Next
Return retVal
End Function
Friend Class Play
Protected chars As Char()
Public Property Hand As String
Public Property Bid As Integer
Public Property Type As HandType
Sub New(from As String())
_Hand = from(0)
_Bid = from(1)
chars = _Hand.ToCharArray
_Type = GetHandType()
End Sub
Private Function GetHandType() As HandType
If IsHighCard() Then Return HandType.HighCard
If IsOnePair() Then Return HandType.OnePair
If IsFullHouse() Then Return HandType.FullHouse
If IsTwoPair() Then Return HandType.TwoPair
Return NTuplet()
End Function
Protected Overridable Function IsHighCard() As Boolean
Return chars.Distinct.Count = 5
End Function
Private Function IsOnePair() As Boolean
Return chars.Distinct.Count = 4
End Function
Protected Overridable Function IsFullHouse() As Boolean
Array.Sort(chars)
Select Case chars.Count(Function(c) c = chars(0))
Case 2
Return chars.FirstOrDefault(Function(c) chars.Count(Function(c1) c1 = c) = 3) <> Nothing
Case 3
Return chars.FirstOrDefault(Function(c) chars.Count(Function(c1) c1 = c) = 2) <> Nothing
Case Else
Return False
End Select
End Function
Protected Overridable Function IsTwoPair() As Boolean
Return chars.Length - chars.Distinct.Count = 2 AndAlso Not chars.Any(Function(c) chars.Count(Function(c1) c1 = c) = 3)
End Function
Protected Overridable Function NTuplet() As HandType
Dim n = chars.Length - chars.Distinct.Count
Return If(n > 2, n + 3, HandType.ThreeKind)
End Function
End Class
Friend Enum HandType
HighCard = 1
OnePair
TwoPair
ThreeKind
FullHouse
FourKind
FiveKind
End Enum

D7 Part2

In CardValue die Werte anpassen und in Zeile 8 Play durch Play2 ersetzen.

VB.NET-Quellcode

Friend Class Play2
Inherits Play
Sub New(from As String())
MyBase.New(from)
chars = Hand.ToCharArray.Where(Function(c) c <> "J"c).ToArray
Type = GetHandType()
End Sub
Protected Overrides Function IsHighCard() As Boolean
If chars.Length = 5 Then Return MyBase.IsHighCard
Return False
End Function
Protected Overrides Function IsFullHouse() As Boolean
If chars.Length = 5 Then Return MyBase.IsFullHouse
If chars.Length = 4 Then Return MyBase.IsTwoPair
Return False
End Function
Protected Overrides Function IsTwoPair() As Boolean
If chars.Length = 5 Then Return MyBase.IsTwoPair
Return False
End Function
Protected Overrides Function NTuplet() As HandType
If chars.Length = 5 Then Return MyBase.NTuplet
If chars.Length > 1 Then
Select Case chars.Distinct.Count
Case 1
Return HandType.FiveKind
Case 2
Return HandType.FourKind
Case 3
Return HandType.ThreeKind
End Select
End If
Return HandType.FiveKind
End Function
End Class

exc-jdbi · 7. Dezember 2023, 23:23

Part 1

Part 2

Methoden/Classes

C#-Quellcode

private static HandType ToRank(string cards, bool withjoker) =>
withjoker ? ToRankWithJoker(cards) : ToRank(cards);
private static HandType ToRank(string cards)
{
if (cards.Length != 5)
throw new ArgumentOutOfRangeException(nameof(cards));
var max = 5;
var group = cards.OrderBy(ch => ch).GroupBy(x => x).ToArray();
var length = group.Length;
return max switch
{
var b when length == 1 => HandType.FiveOfAKind,
var b when length == 2 && group.Count(x => x.Count() == 4) == 1 => HandType.FourOfAKind,
var b when length == 2 && group.Count(x => x.Count() == 3) == 1 => HandType.FullHouse,
var b when length == 3 && group.Count(x => x.Count() == 3) == 1 => HandType.ThreeOfAKind,
var b when length == 3 && group.Count(x => x.Count() == 2) == 2 => HandType.TwoPairs,
var b when length == 4 && group.Count(x => x.Count() == 2) == 1 => HandType.OnePair,
_ => HandType.HighCard,
};
}
private static HandType ToRankWithJoker(string cards)
{
var mintype = int.MaxValue;
var result = HandType.HighCard;
foreach (var card in CardRank(true).Keys.Where(x => x != 'J'))
{
var type = ToRank(cards.Replace("J", card.ToString()));
if ((int)type < mintype)
{
mintype = (int)type;
result = type;
}
}
return result;
}
private readonly static string CARDS = "AKQJT98765432";
private static Dictionary<HandTypes, List<Hands>> HandClasses()
{
var values = Enum.GetValues<HandTypes>();
return values.Select(v => (v, new List<Hands>())).ToDictionary();
}
private static Dictionary<char, char> CardRank(bool with_jocker)
{
var result = CARDS.Select((ch, i) => (ch, (char)('a' + i))).ToDictionary();
if (with_jocker) { result.Remove('J'); result.Add('J', 'o'); }
return result;
}
private class Hands
{
public int Id = 0;
public HandType Type = 0;
public string Cards = string.Empty;
public Dictionary<char, char>? CardRank;
public string CardsPriority = string.Empty;
}
public enum HandType
{
FiveOfAKind ,
FourOfAKind ,
FullHouse ,
ThreeOfAKind ,
TwoPairs ,
OnePair ,
HighCard
}

Source

Haudruferzappeltnoch · 8. Dezember 2023, 11:08

D8 Part 1

Part 2 braucht mit diesem Ansatz wieder signifikant lange... ~~Daher heißts abwarten, ob es überhaupt funktioniert.~~ Jo funktioniert nicht in unter 28 Jahren Rechenzeit

D8 Part 2

exc-jdbi · 8. Dezember 2023, 11:16

Part 1

Part 2

Methodes

Source

VaporiZed · 8. Dezember 2023, 11:45

Mit BruteForce hätte es wohl Tage für Part2 gedauert …
Part1 ist mit BruteForce gelöst.
Zum Glück hat es beim ersten Part2-BruteForceDurchgang zwischendurch irgendwann Klick gemacht und das Ergebnis ist nach Codekorrektur in weniger als 1 Sekunde da.

Spoiler anzeigen

VB.NET-Quellcode

Friend Class ValueCalculatorForDay7
Private ReadOnly StepSequence As New List(Of Integer)
Private ReadOnly Checkpoints As New Dictionary(Of String, String())
Private StepsToReachExit As Long
Function GetValuesFor(FilePath As String) As (Long, Long)
Dim RawDataLines = GetRawDataFrom(FilePath)
ParseRawData(RawDataLines)
FollowPathAsHuman()
Dim Part1Value = StepsToReachExit
StepsToReachExit = 0
FollowPathsAsGhost()
Dim Part2Value = StepsToReachExit
Return (Part1Value, Part2Value)
End Function
Private Function GetRawDataFrom(FilePath As String) As IEnumerable(Of String)
Return IO.File.ReadAllLines(FilePath)
End Function
Private Sub ParseRawData(RawDataLines As IEnumerable(Of String))
For Each Character In RawDataLines(0)
If Character = "L" Then StepSequence.Add(0)
If Character = "R" Then StepSequence.Add(1)
Next
For Each RawDataLine In RawDataLines.Skip(2)
Dim RawData = RawDataLine.Split({"=", "(", ")", ","c, " "c}, StringSplitOptions.RemoveEmptyEntries)
Checkpoints.Add(RawData(0), {RawData(1), RawData(2)})
Next
End Sub
Private Sub FollowPathAsHuman()
Dim CurrentCheckpointMarkers = Checkpoints.Where(Function(x) x.Key = "AAA").Select(Function(x) x.Key).ToArray
Do
For Each SingleStep In StepSequence
For i = 0 To CurrentCheckpointMarkers.Count - 1
Dim PossibleDestinations = Checkpoints(CurrentCheckpointMarkers(i))
CurrentCheckpointMarkers(i) = PossibleDestinations(SingleStep)
Next
StepsToReachExit += 1
If CurrentCheckpointMarkers.All(Function(x) x = "ZZZ") Then Exit Do
Next
Loop
End Sub
Private Sub FollowPathsAsGhost()
Dim CurrentCheckpointMarkers = Checkpoints.Where(Function(x) x.Key(2) = "A"c).Select(Function(x) x.Key).ToArray
Dim StepsToTakeForAll As New List(Of Integer)
For i = 0 To CurrentCheckpointMarkers.Count - 1
Dim TempStepsToReachExit = 0
Do
For Each SingleStep In StepSequence
CurrentCheckpointMarkers(i) = Checkpoints(CurrentCheckpointMarkers(i))(SingleStep)
Next
TempStepsToReachExit += 1
If CurrentCheckpointMarkers(i)(2) = "Z" Then
StepsToTakeForAll.Add(TempStepsToReachExit)
Exit Do
End If
Loop
Next
StepsToReachExit = 1
For Each StepsToTakeForAllForOnePath In StepsToTakeForAll
StepsToReachExit *= StepsToTakeForAllForOnePath
Next
StepsToReachExit *= StepSequence.Count
End Sub
End Class

btw: Ich glaube, dass die Rätsel so ausgelegt sind, dass man auf die Ergebnisse immer in wenigen Sekunden (< 5) kommt. Tag 5 Teil 2 war ja bisher übel, aber laut diesem youtube-Video geht es wohl auch fix. Wenn man blickt, was da passiert

xChRoNiKx · 8. Dezember 2023, 11:54

Da ich noch am arbeiten bin

Kann ich noch nicht reinschauen aber eure Kommentare sagen mir es wird Interessant.
Bin mal auf nachher gespannt.

Haudruferzappeltnoch · 8. Dezember 2023, 12:07

VaporiZed schrieb:

Tag 5 Teil 2 war ja bisher übel, aber laut diesem youtube-Video geht es wohl auch fix.

Auch laut mir, siehe Post 60 bzw. mein aktualisierter Tag 5^^

@VaporiZed

Spoiler anzeigen

xChRoNiKx · 8. Dezember 2023, 12:10

VaporiZed schrieb:

btw: Ich glaube, dass die Rätsel so ausgelegt sind, dass man auf die Ergebnisse immer in wenigen Sekunden (< 5) kommt. Tag 5 Teil 2 war ja bisher übel, aber laut diesem youtube-Video geht es wohl auch fix. Wenn man blickt, was da passiert

Nunja es gibt IMMER irgendeinen Algo um die Sachen super schnell zu machen.
Oder irgendeine Logik wo man direkt 90% der Daten gar nicht durchsuchen muss.
Da muss man aber dann erstmal drauf kommen. Gibt die supercracks die natürlich jeden Algo im Kopf haben und das direkt sehen.
Auch einer der Gründe den AoC zu machen - man lernt dabei sehr viel grad durch die Lösungen von anderen.

ISliceUrPanties · 8. Dezember 2023, 16:42

Tag 8
Alles wild durcheinander bei mir. Ich stelle fest, dass ich die Aufgaben nicht genau genug lese, wodurch sich meine Lösung zu lange hinzieht :D. Ich poste mal nur Part 2.

Spoiler anzeigen

C#-Quellcode

using System.Collections.Frozen;
using System.Numerics;
List<string> startKeys = new();
string directions = string.Empty;
var lookupSet = ReadFile().ToFrozenDictionary();
List<long> v = new();
foreach (string k in startKeys)
{
v.Add(Find(k));
}
long result = v.LeastCommonMultiple();
System.Console.WriteLine(result);
int Find(string k)
{
ReadOnlySpan<char> d = directions.AsSpan();
int steps = 0;
int commandLen = d.Length;
bool found = false;
while (!found)
{
switch (d[steps % commandLen])
{
case 'L':
k = lookupSet[k][0];
break;
case 'R':
k = lookupSet[k][1];
break;
}
found = k.EndsWith('Z');
++steps;
}
return steps;
}
Dictionary<string, string[]> ReadFile()
{
using FileStream fs = File.OpenRead(@"C:\Dev\dotnet\AdventOfCode\2023\Day8\input.txt");
using StreamReader sr = new(fs);
Dictionary<string, string[]> dict = new();
int i = 0;
while (!sr.EndOfStream)
{
var lineSpan = sr.ReadLine().AsSpan();
if (directions.Length == 0)
directions = lineSpan.ToString();
else if (lineSpan.Length > 0)
{
string x = lineSpan[0..3].ToString();
dict.Add(x, [lineSpan[7..10].ToString(), lineSpan[12..15].ToString()]);
if (lineSpan[2] == 'A')
startKeys.Add(x);
++i;
}
}
return dict;
}
public static class MathHelpers
{
public static T GreatestCommonDivisor<T>(T a, T b) where T : INumber<T>
{
while (b != T.Zero)
{
var temp = b;
b = a % b;
a = temp;
}
return a;
}
public static T LeastCommonMultiple<T>(T a, T b) where T : INumber<T>
=> a / GreatestCommonDivisor(a, b) * b;
public static T LeastCommonMultiple<T>(this IEnumerable<T> values) where T : INumber<T>
=> values.Aggregate(LeastCommonMultiple);
}

VaporiZed · 8. Dezember 2023, 16:55

@Haudruferzappeltnoch: Oh, hatte ich wohl übersehen. Zieh ich mir bei Gelegenheit nochmal rein.

xChRoNiKx · 8. Dezember 2023, 17:30

Ich denke ich muss mal schauen.. Part1 läuft seit 15 Minuten und noch kein Ergebnis.
Manchmal will man einfach auf nen Spoiler drücken aber durchhalten irgendwo ist die denk Blockade die mich noch abhält glaub ich.
/EDIT/ Geil... Richtig hart rein gesch.... Hab einfach mal ein extrem wichtiges Element übersehen... Part1 ist erledigt... auf zu Part2

Haudruferzappeltnoch · 8. Dezember 2023, 17:42

Ich denke du meinst Part 2, wenn du die Größenordnung wissen willst, dann weißt du ob dein Code beendet oder nicht:

Spoiler anzeigen

xChRoNiKx · 8. Dezember 2023, 17:45

@Haudruferzappeltnoch nene ich meine Part1.... Im Spoiler mal mein "versagen"

Spoiler anzeigen

VaporiZed · 8. Dezember 2023, 18:05

Ich hatte bei meinem Part2-BruteForce-Versuch 2x nach mehreren Minuten (5, 15) pausiert und das Zwischenergebnis bei AoC reingestellt. Da beides Mal kam, dass das Ergebnis zu klein ist, wusste ich, dass da was sehr großes rauskommt und dass ich einen besseren Weg finden musste. Dann kam dann der Geistesblitz.

Haudruferzappeltnoch · 8. Dezember 2023, 18:23

Ich wäre auf diesen "Geistesblitz" übrigens nie gekommen. Denn ich habe gedacht, dass das Routenende auch jederzeit mitten im RLRLLRLLR -String auftreten kann und nicht nur am Ende. Und ich finde auch nicht dass die Instructions das explizit vorgeben.

VaporiZed · 8. Dezember 2023, 18:41

Das war auch nicht zwangsläufig so vorgesehen. Da ich aber

Spoiler anzeigen

xChRoNiKx · 8. Dezember 2023, 19:05

Oooookey.... Wasn Krampf... Part1 und Part2 in einem... Ohne lange warten. Einfach mal den Kopf richtig nutzen.
Jetzt freu ich mich erstmal drauf auch andere Lösungen mal anzuschauen.

Spoiler anzeigen

Nachdem mein Kopf dann mal gesehen hat das ich hier einfach mit LCM/GCF ( ehm deutsche abkürzungen weiß ich nicht aber größten gemeinsamen teiler und dem kleinsten gemeinsamen vielfachen? ) rechnen kann gings dann nochmal neu mit code los..
Also einfach Steps zählen bis ende und ab einmal drüber rechnen lassen.
Hat mich jetzt viel Zeit gekostet weil ich einfach die Möglichkeit nicht gesehen habe.

C#-Quellcode

using System.Text.RegularExpressions;
using System.Timers;
namespace Tag08
{
internal class Program
{
static void Main(string[] args)
{
string[] exampleFile = File.ReadAllLines("Example.txt");
string[] exampleFile2 = File.ReadAllLines("Example2.txt");
string[] inputFile = File.ReadAllLines("Input.txt");
Wasteland example = new Wasteland(exampleFile);
Wasteland example2 = new Wasteland(exampleFile2);
Wasteland input = new Wasteland(inputFile);
Console.WriteLine($"Example: {example.CalculateSteps().Aggregate(lcm)}");
Console.WriteLine($"Example 2: {example2.CalculateSteps(true).Aggregate(lcm)}");
Console.WriteLine($"Input Part 1: {input.CalculateSteps().Aggregate(lcm)}");
Console.WriteLine($"Input Part 2: {input.CalculateSteps(true).Aggregate(lcm)}");
}
static long gcf(long a, long b)
{
while (b != 0)
{
long temp = b;
b = a % b;
a = temp;
}
return a;
}
static long lcm(long a, long b)
{
return (a / gcf(a, b)) * b;
}
}
public class Wasteland
{
HashSet<Place> map = new HashSet<Place>();
public string DirectionPattern = "";
public Wasteland(string[] lines)
{
DirectionPattern = lines[0];
foreach (string line in lines.Skip(2))
{
var matches = Regex.Matches(line, "(\\w+)");
Place place = new Place();
Instruction inst = new Instruction();
place.Name = matches[0].Value;
inst.Left = matches[1].Value;
inst.Right = matches[2].Value;
place.Instruction = inst;
map.Add(place);
}
}
public List<long> CalculateSteps(bool part2 = false)
{
int directionCount = 0;
int directionPatternLength = DirectionPattern.Length - 1;
List<long> listOfStepsToFinish = new List<long>();
List<Place> places = new List<Place>();
if (part2)
{
places = map.Where(x => x.Name.EndsWith('A')).ToList();
}
else
{
places = map.Where(x => x.Name == "AAA").ToList();
}
foreach (Place place in places)
{
long steps = 0;
Place currentPlace = place;
while(!currentPlace.Name.EndsWith('Z'))
{
if (DirectionPattern[directionCount] == 'L')
{
currentPlace = map.First(x => x.Name == currentPlace.Instruction.Left);
}
else
{
currentPlace = map.First(x => x.Name == currentPlace.Instruction.Right);
}
steps++;
if (directionCount >= directionPatternLength)
{
directionCount = 0;
}
else
{
directionCount++;
}
}
listOfStepsToFinish.Add(steps);
}
return listOfStepsToFinish;
}
}
public class Place
{
public string Name { get; set; }
public Instruction Instruction { get; set; }
}
public class Instruction
{
public string Left { get; set; }
public string Right { get; set; }
}
}

Advent of Code 2023

VB.NET-Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Day 7 2023

C#-Quellcode

C#-Quellcode

C#-Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Day 8 2023

C#-Quellcode

C#-Quellcode

C#-Quellcode

C#-Quellcode

VB.NET-Quellcode

VaporiZed schrieb:

VaporiZed schrieb:

C#-Quellcode

C#-Quellcode

Ähnliche Themen

8 Benutzer haben hier geschrieben