Zufällige Nummer, aber nicht Wiederholen

Möchte ich eine Zufallszahl erzeugen, die weniger als 50, aber sobald diese Zahl generiert wurde, möchte ich es so, dass es nicht erneut generiert werden.

Danke für die Hilfe!

  • Sie können nur tun, dass es 50 mal 🙂
  • Streng genommen, ist dies nicht eine zufällige Zahl. Es ist eher eine zufällige permutation der zahlen im Bereich von 1-49 (oder 0-49).
InformationsquelleAutor | 2009-08-02
  1. 13

    Finden Sie unter: Fisher–Yates-shuffle:

    public static void shuffle (int[] array) 
{
    Random rng = new Random();       // i.e., java.util.Random.
    int n = array.length;            // The number of items left to shuffle (loop invariant).
    while (n > 1) 
    {
        n--;                         // n is now the last pertinent index
        int k = rng.nextInt(n + 1);  // 0 <= k <= n.
        int tmp = array[k];
        array[k] = array[n];
        array[n] = tmp;
    }
}
    • BTW, diese Frage wurde schon mehrfach gefragt, bevor...
    • Danke, ich habe das Spiel mit ihm für die letzten 15 Minuten, aber kann nicht scheinen, um herauszufinden, wie Sie es nennen. Ich bin ein bisschen neu mit vb.
    • Sollten rng.nextInt(n + 1) tatsächlich rng.nextInt(n-1)?
    • Nein, nicht in C#
    InformationsquelleAutor Mitch Wheat
  2. 9

    Setzen Sie die zahlen 1-49 in eine sortierbare Auflistung, dann Sortieren Sie Sie in zufälliger Reihenfolge; pop jeder aus der Sammlung Bedarf.

    • Erm. "Art in zufälliger Reihenfolge" ist ein Widerspruch in sich.
    • Stimmt, my bad :-). Re-Reihenfolge zufällig?
    • Die Worte, die Ihr auf der Suche nach sind: "Legen Sie die zahlen 1 bis 50 in einer Sammlung, shuffle, dann pop die jeweils aus ein zu einer Zeit."
    • Bingo. (Wortspiel beabsichtigt.) +1 für Mitch für die richtige Antwort
    InformationsquelleAutor onupdatecascade
  3. 5

    Sehen, als die Frage war, tagged VB/VB.Net... das ist eine VB-Implementierung von Mitch ' s Antwort.

    Public Class Utils

   Public Shared Sub ShuffleArray(ByVal items() As Integer)

      Dim ptr As Integer
      Dim alt As Integer
      Dim tmp As Integer
      Dim rnd As New Random()

      ptr = items.Length

      Do While ptr > 1
         ptr -= 1
         alt = rnd.Next(ptr - 1)
         tmp = items(alt)
         items(alt) = items(ptr)
         items(ptr) = tmp
      Loop

   End Sub

End Class
    InformationsquelleAutor Bill
  4. 0

    Folgenden code generieren alpha-numerischer string mit der Länge, die Sie übergeben als parameter.

    Public Shared Function GetRandomAlphaNumericString(ByVal intStringLength As Integer) As String

Dim chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

Dim intLength As Integer = intStringLength - 1

Dim stringChars = New Char(intLength) {}

Dim random = New Random()

    For i As Integer = 0 To stringChars.Length - 1
        stringChars(i) = chars(random.[Next](chars.Length))
    Next

    Dim finalString = New [String](stringChars)
    Return finalString
End Function
    InformationsquelleAutor Bhaumik Patel
Schreibe einen Kommentar