Neue Random-Funktionen in .Net8.0

    • C#
    • .NET 7–8

      Neue Random-Funktionen in .Net8.0

      Hallo Community

      Die Random.Shared gibt es seit .Net6.0, und die ist sogar ThreadSave. Neu hinzugekommen sind in .Net8.0 die Methoden GetItems(Of T) und Shuffle(of T), und wie man erkennen kann, sind die für jeden DatenType zugänglich.

      Freundliche Grüsse

      exc-jdbi


      Hier eine kleine Abhandlung. Das Programm findet Ihr im Anhang.

      C#-Quellcode

      1. interface IRandom
      2. {
      3. public const string AlphaNumeric = "0123456789";
      4. public const string AlphaLower = "abcdefghijklmnopqrstuvwxyz";
      5. public const string AlphaUpper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
      7. public const string AlphaLowerUpper = AlphaLower + AlphaUpper;
      8. public const string AlphaLowerNumeric = AlphaLower + AlphaNumeric;
      9. public const string AlphaUpperNumeric = AlphaUpper + AlphaNumeric;
      10. public const string AlphaLowerUpperNumeric = AlphaLower + AlphaUpper + AlphaNumeric;
      11. }

      C#-Quellcode

      1. private static void RandomTest()
      2. {
      3. var rand = Random.Shared;
      5. var dbl_1 = rand.NextDouble();
      6. var dbl_2 = Enumerable.Range(0, 1000)
      7. .Select(x => rand.NextDouble()).ToArray();
      8. var dbl_3 = rand.GetItems(dbl_2, 100);
      9. rand.Shuffle(dbl_2);
      11. var sgn_1 = rand.NextSingle();
      12. var sgn_2 = Enumerable.Range(0, 1000)
      13. .Select(x => rand.NextSingle()).ToArray();
      14. var sgn_3 = rand.GetItems(sgn_2, 100);
      15. rand.Shuffle(sgn_2);
      17. var int8_1 = new byte[1000];
      18. rand.NextBytes(int8_1);
      19. var int8_2 = Enumerable.Range(0, 1000)
      20. .Select(i => (byte)i).ToArray();
      21. var int8_3 = rand.GetItems(int8_2, 100);
      22. rand.Shuffle(int8_2);
      24. var int32_1 = rand.Next();
      25. var int32_2 = rand.Next(1500);
      26. var int32_3 = rand.Next(1500, 2500);
      27. var int32_4 = rand.Next(-1500, 2500);
      28. var int32_5 = Enumerable.Range(0, 1000).ToArray();
      29. rand.Shuffle(int32_5);
      31. var int64_1 = rand.NextInt64();
      32. var int64_2 = rand.NextInt64(1500);
      33. var int64_3 = rand.NextInt64(1500, 2500);
      34. var int64_4 = rand.NextInt64(-1500, 2500);
      35. var int64_5 = Enumerable.Range(0, 1000)
      36. .Select(Convert.ToInt64).ToArray();
      37. rand.Shuffle(int64_5);
      39. var alphastr = IRandom.AlphaLowerUpperNumeric;
      40. var chars_1 = rand.GetItems<char>(alphastr, 100);
      41. var string_1 = string.Join("", chars_1);
      42. var chars_2 = rand.GetItems<char>(alphastr, alphastr.Length);
      43. var string_2 = string.Join("", chars_2);
      44. var chars_3 = alphastr.ToCharArray();
      45. rand.Shuffle(chars_3);
      46. var string_3 = string.Join("", chars_3);
      47. }


      Und hier noch in VbNet

      VB.NET-Quellcode

      1. Public MustInherit Class ARandom
      2. Public Const AlphaNumeric As String = "0123456789"
      3. Public Const AlphaLower As String = "abcdefghijklmnopqrstuvwxyz"
      4. Public Const AlphaUpper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
      6. Public Const AlphaLowerUpper As String = AlphaLower & AlphaUpper
      7. Public Const AlphaLowerNumeric As String = AlphaLower & AlphaNumeric
      8. Public Const AlphaUpperNumeric As String = AlphaUpper & AlphaNumeric
      9. Public Const AlphaLowerUpperNumeric As String = AlphaLower & AlphaUpper & AlphaNumeric
      10. End Class

      VB.NET-Quellcode

      1. Private Shared Sub RandomTest()
      2. Dim rand = Random.Shared
      4. Dim dbl_1 = rand.NextDouble()
      5. Dim dbl_2 = Enumerable.Range(0, 1000).
      6. Select(Function(x) rand.NextDouble()).ToArray()
      7. Dim dbl_3 = rand.GetItems(dbl_2, 100)
      8. rand.Shuffle(dbl_2)
      10. Dim sgn_1 = rand.NextSingle()
      11. Dim sgn_2 = Enumerable.Range(0, 1000).
      12. Select(Function(x) rand.NextSingle()).ToArray()
      13. Dim sgn_3 = rand.GetItems(sgn_2, 100)
      14. rand.Shuffle(sgn_2)
      16. Dim int8_1 = New Byte(999) {}
      17. rand.NextBytes(int8_1)
      18. Dim int8_2 = Enumerable.Range(0, 1000).
      19. Select(Function(x) Convert.ToByte(x And 255)).ToArray()
      20. Dim int8_3 = rand.GetItems(int8_2, 100)
      21. rand.Shuffle(int8_2)
      23. Dim int32_1 = rand.Next()
      24. Dim int32_2 = rand.Next(1500)
      25. Dim int32_3 = rand.Next(1500, 2500)
      26. Dim int32_4 = rand.Next(-1500, 2500)
      27. Dim int32_5 = Enumerable.Range(0, 1000).ToArray()
      28. rand.Shuffle(int32_5)
      30. Dim int64_1 = rand.NextInt64()
      31. Dim int64_2 = rand.NextInt64(1500)
      32. Dim int64_3 = rand.NextInt64(1500, 2500)
      33. Dim int64_4 = rand.NextInt64(-1500, 2500)
      34. Dim int64_5 = Enumerable.Range(0, 1000).
      35. Select(Function(x) Convert.ToInt64(x)).ToArray()
      36. rand.Shuffle(int64_5)
      38. Dim alphastr = AlphaLowerUpperNumeric
      39. Dim chars_1 = rand.GetItems(Of Char)(alphastr, 100)
      40. Dim string_1 = String.Join("", chars_1)
      41. Dim chars_2 = rand.GetItems(Of Char)(alphastr, alphastr.Length)
      42. Dim string_2 = String.Join("", chars_2)
      43. Dim chars_3 = alphastr.ToCharArray()
      44. rand.Shuffle(chars_3)
      45. Dim string_3 = String.Join("", chars_3)
      46. End Sub
      Dateien

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