dictionary (of integer, list of integer) befüllen und initiallisieren

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Visual_Prog.

    dictionary (of integer, list of integer) befüllen und initiallisieren

    Moin, ich wollte mal fragen, ob Jemand weißt, wie man einen dictionary of integer, list of integer anhand eines einfaches Beispieles initialisieren und befüllen kann.
    Für das Beispiel unten beispielsweise z.B. 5 keys mit entsprechenden 5 values als list of integer

    VB.NET-Quellcode

    1. Dim inventory As New Dictionary(Of Integer, List(Of Integer))

    So?

    VB.NET-Quellcode

    1. Dim inventory As New Dictionary(Of Integer, List(Of Integer))
    3. for i as integer = 0 to 100
    4. Dim lst as New List(Of integer)
    5. lst.Add(1)
    6. lst.Add(2)
    7. lst.Add(3)
    8. lst.Add(4)
    9. lst.Add(5)
    10. inventory.Add(i,lst)
    11. Next


    Edit: Schleife drum rum gebastelt.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

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

    ok danke schon mal. Hintergrund der Frage ist folgender:

    ich habe einen spieler mit einer list of integer an karten, die ihn fehlen.
    dazu habe ich noch 3 weitere spieler, mit karten, die sie doppelt haben.

    nun soll das programm herausfinden, welche doppelte karten von den jeweils 3 spielern in der liste der fehlenden karten vom spieler mit den fehlenden karten auch vorhanden sind.
    es soll dann ausgeben von wie viele karten tauschbar sind, welche davon sind tauschbar und zwischen welche spielern.

    VB.NET-Quellcode

    1. inventory.Add(0, spieleranzahl(0).welchenichtvorhanden)
    2. inventory.Add(1, spieleranzahl(1).doppeltekartenliste)
    3. inventory.Add(2, spieleranzahl(2).doppeltekartenliste)
    4. inventory.Add(3, spieleranzahl(3).doppeltekartenliste)


    jetzt habe ich einen ansatz mit directory of, bin mir jedoch nicht sicher ob es wirklich das richtige tool hier ist.

    Wann wirst Du endlich von Deinen Integerlisten wegkommen und mit Spielkartenobjekten anfangen?

    So aus dem Kopf als Anfang.

    VB.NET-Quellcode

    1. For Each Player In spieleranzahl 'warum "spieleranzahl"?!? Es ist eine Spielerliste!
    2. If Player Is CurrentPlayer Then Continue For
    4. MessageBox.Show($"Spieler {Player.Name} hat für {CurrentPlayer.Name} {CurrentPlayer.welchenichtvorhanden.Where(Sub(x) Player.doppeltekartenliste.Contains(x)).Count} Karten.")
    5. Next
    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.

    Visual_Prog schrieb:

    (...) list of integer an karten (...)
    Hört sich komisch an. Würde sich deutlich besser anhören wenn du eine List(Of Karte) hättest...

    Es scheint, also wäre dein Datenmodell Grütze bzw. nicht vorhanden. Ohne das, kannst das ganze vergessen. Das weißt du aber sicher selber schon. Du bist ja gerade dabei es irgendwie hin zu biegen, ohne dein ganzes Programm zu ändern, indem du versuchst mit dem Dictionary ein Datenmodell abzubilden.

    Ich würde es mit einer Klasse Spieler und eine Klasse Karte machen und mein Programm von Grund auf überarbeiten.

    Spieler:
    - ID
    - Name
    - Karten auf der Hand (List (Of Karte)
    - Fehlende Karten (List (Of Karte)

    Karte
    - ID
    - Name
    - Wert



    Wenn du dann auf die Eigenschaften „Fehlende Karten“ zugreifst kannst du z.B. im Getter deine Logik (oder die von @VaporiZed implementieren).

    Oder so ähnlich. Kenne dein Spiel ja nicht.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

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

    ok also ich hab das nochmal neu angefangen mit einer klasse karte und mit einer klasse spieler.
    Berechnet werden sollen alle listen und variablen, die in der klasse spieler enthalten sind, mal schauen ob ich das mit dem neuen Modell umsetzen kann. Später kommt evtl noch was in der Art "tauschbareKarten" hinzu, was sich auf Beitrag #3 und #4 bezieht.
    Wäre noch gut zu wissen ob das jetzt einigermaßen hinkommt.

    VB.NET-Quellcode

    1. Public Class karte
    3. Public kartennummer As Integer
    4. Public kartenname As String
    5. End Class
    7. Public Class spieler
    9. Public Shared zufallkarten As New Random
    10. Public kartenvorhanden As Integer = zufallkarten.Next(0, gesamtkarten + 1) 'Anzahl der Karten eines jeden Spielers
    11. Public fehlendeAnzahlAnKarten As Integer = gesamtkarten - kartenvorhanden 'Wie viele Karten fehlen jeden Spieler
    12. Public welchevorhanden As Integer 'Zuordnungsvariable um welchekartenhatDerSPieler zu erstellen
    13. Public WelcheKartenHatDerSpieler As New List(Of karte) 'Liste der vorhandenen Karten eines jeden Spielers
    14. Public WelcheKartenFehlenDemSpieler As New List(Of karte) 'Liste der fehlenden Karten eines jeden Spielers
    15. Public AnzahlDoppelterKarten As Integer 'Wie viele Karten hat der Spieler doppelt
    16. Public Welchedoppelt As Integer 'Zuordnungsvariable um DoppeltekartenDesSpielers zu erstellen
    17. Public DoppelteKartenDesSpielers As New List(Of karte) 'welche Karten hat der Spieler doppelt
    19. End Class
    21. Public gesamtkarten As Integer
    22. Public spieleranzahl As Integer
    23. Public spielerliste(spieleranzahl) As spieler
    24. Public kartenliste(gesamtkarten) As karte
    26. Public Sub simulation()
    27. Console.WriteLine("Geben Sie die Anzahl as Spielern an: ")
    28. spieleranzahl = CInt(Console.ReadLine())
    29. Console.WriteLine("Geben Sie die Anzahl der Karten im Spiel an: ")
    30. gesamtkarten = CInt(Console.ReadLine)
    32. ReDim spielerliste(spieleranzahl)
    33. ReDim kartenliste(gesamtkarten)
    35. For i = 0 To spieleranzahl
    37. spielerliste(i) = New spieler
    39. Next
    41. For i = 0 To gesamtkarten
    42. kartenliste(i) = New karte
    44. Next
    47. For i = 0 To gesamtkarten
    49. kartenliste(i).kartennummer = i
    51. Next
    54. End Sub

    In meiner Welt ist 'Karte' auch ein bischen was komplizierteres.
    Zumindest bei Skat, Doppelkopf etc. hat eine Karte eine Farbe (karo, Herz, Pik, Kreuz), und einen Wert (zB Skat: 7,8,9,10, Bube, Dame, König, Ass).
    Aber wenn du Tarot-Karten modellierst mag das anders aussehen - da mag eine Karte mit einem kartenname auskommen (kenne mich mit Tarot nicht so aus).

    Du speicherst in der Klasse Spieler (Typen werden immer groß geschrieben) jede Mange redundante Informationen ab, die es schwierig bis unmöglich machen einen konsistenten Zustand zu erreichen bzw. aufrecht zu erhalten. Beispielsweise hast du die Membervariablen WelcheKartenHatDerSpieler, WelcheKartenFehlenDemSpieler und DoppelteKartenDesSpielers (dazu noch weitere die die Anzahl der Karten der einzelnen Kategorien wiedergeben). Wenn der Spieler jetzt eine neue Karte erhält musst du diese der WelcheKartenHatDerSpieler-Auflistung hinzufügen, bei WelcheKartenFehlenDemSpieler löschen und prüfen, obs ein Duplikat ist und es ggf. der DoppelteKartenDesSpielers-Auflistung hinzufügen (Und natürlich die ausgelassenen Anzahlsmember updaten). Klingt nach recht viel Arbeit und sorgt wahrscheinlich früher oder später für inkonsistente Daten.

    Besser:
    Du hast an einer zentralen Stelle die Auflistung aller möglichen Karten (globale Variablen sollte man eigentlich meiden, an dieser Stelle erachtete ich diese allerdings für sinnvoll, da diese zum allgemeinen Kontext der Kartenspiele-Welt gehören) (-> AllCards)
    Die Klasse Spieler enthält eine Auflistung der Karten, die sich in seinem besitzt befinden (-> WelcheKartenHatDerSpieler)

    Alle weiteren Member deiner Spieler-Klasse kannst du aus diesen beiden Werten ableiten:
    WelcheKartenFehlenDemSpieler -> AllCards.Except(WelcheKartenHatDerSpieler)
    kartenvorhanden -> WelcheKartenHatDerSpieler.Count()
    fehlendeAnzahlAnKarten -> WelcheKartenFehlenDemSpieler.Count()
    DoppelteKartenDesSpielers -> WelcheKartenHatDerSpieler.GroupBy(Function(x) x.Number).Where(Function(x) x.Count > 1).Select(Function(x) x.First)
    AnzahlDoppelterKarten -> DoppelteKartenDesSpielers.Count()

    Beispielcode:
    Spoiler anzeigen


    VB.NET-Quellcode

    1. Public Class Card
    3. Public ReadOnly Property Number As Integer
    4. Public ReadOnly Property Name As String
    6. Public Sub New(number As Integer, name As String)
    7. Me.Number = number
    8. Me.Name = name
    9. End Sub
    11. Public Overrides Function Equals(obj As Object) As Boolean
    12. Dim other = TryCast(obj, Card)
    13. If other Is Nothing Then Return False
    14. Return Me.Equals(other)
    15. End Function
    17. Public Overloads Function Equals(card As Card) As Boolean
    18. Return Me.Number.Equals(card.Number)
    19. End Function
    21. Public Overrides Function GetHashCode() As Integer
    22. Return Me.Number.GetHashCode()
    23. End Function
    25. Public Overrides Function ToString() As String
    26. Return $"[{Me.Number}: {Me.Name}]"
    27. End Function
    29. End Class


    VB.NET-Quellcode

    1. Module GlobalContext
    3. ReadOnly Property AllCards As IReadOnlyList(Of Card) = New List(Of Card) From
    4. {{New Card(number:=1, name:="Karte1")},
    5. {New Card(number:=2, name:="Karte2")},
    6. {New Card(number:=3, name:="Karte3")},
    7. {New Card(number:=4, name:="Karte4")}}
    9. End Module


    VB.NET-Quellcode

    1. Public Class Player
    3. Public ReadOnly Property Name As String
    4. Public ReadOnly Property Cards As IReadOnlyList(Of Card) = New List(Of Card)()
    6. Public Sub New(name As String, cards As List(Of Card))
    7. Me.Name = name
    8. Me.Cards = cards
    9. End Sub
    11. Public ReadOnly Property Count() As Integer
    12. Get
    13. Return Me.Cards.Count()
    14. End Get
    15. End Property
    17. Public ReadOnly Property Missing() As IReadOnlyList(Of Card)
    18. Get
    19. Return AllCards.Except(Cards).ToList()
    20. End Get
    21. End Property
    23. Public ReadOnly Property Duplicates() As IReadOnlyList(Of Tuple(Of Card, Integer))
    24. Get
    25. Return Me.Cards.GroupBy(Function(x) x.Number) _
    26. .Where(Function(x) x.Count > 1) _
    27. .Select(Function(x) New Tuple(Of Card, Integer)(x.First, x.Count)) _
    28. .ToList()
    29. End Get
    30. End Property
    32. Public Overrides Function ToString() As String
    33. Dim sb = New StringBuilder()
    34. sb.AppendLine($"Name: {Me.Name}")
    35. sb.AppendLine($"Karten: {String.Join(", ", Me.Cards.OrderBy(Function(x) x.Number))}")
    36. Dim duplicateNodes = Me.Duplicates.Select(Function(x) $"{x.Item1}: {x.Item2}x")
    37. sb.AppendLine($"Duplikate: {String.Join(", ", duplicateNodes)}")
    38. sb.AppendLine($"fehlende Karten: {String.Join(", ", Me.Missing)}")
    39. Return sb.ToString()
    40. End Function
    42. End Class


    VB.NET-Quellcode

    1. Public Class Game
    3. Private ReadOnly Property Players As List(Of Player) = New List(Of Player)()
    5. Public Sub New()
    6. With Players
    7. .Add(New Player(name:="Spieler1", cards:=RandomCards()))
    8. .Add(New Player(name:="Spieler2", cards:=RandomCards()))
    9. .Add(New Player(name:="Spieler3", cards:=RandomCards()))
    10. End With
    11. End Sub
    13. Private Shared Function RandomCards() As IReadOnlyList(Of Card)
    14. Static random As Random = New Random()
    16. 'Karten mehrmals zusammenwerfen, damit auch Duplikate entstehen
    17. Dim cardsWithDuplicates = GlobalContext.AllCards.ToList().Concat(GlobalContext.AllCards) _
    18. .Concat(GlobalContext.AllCards)
    20. Return cardsWithDuplicates.OrderBy(Function(x) random.Next) _
    21. .Take(random.Next(cardsWithDuplicates.Count)).ToList()
    22. End Function
    24. Public Sub Simulate()
    25. For Each player In Me.Players
    26. Console.WriteLine(player.ToString())
    27. Next
    28. End Sub
    30. End Class


    Dateien

    • CardGame.zip

      (311,85 kB, 80 mal heruntergeladen, zuletzt: )

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

    Ja so wie @ChristianT. das geschrieben hat kommt schaut das schon gut aus. So hatte ich mir das gedacht.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen