Sub Main()
Dim line = String.Empty
Dim halt = False
Dim seed = 0
Do Until halt
line = Console.ReadLine()
halt = String.IsNullOrEmpty(line)
If halt Then Continue Do
seed = line.GetHashCode()
Console.WriteLine("Seed: " & seed.ToString())
Console.WriteLine("Values:")
With New System.Random(seed)
For index = 0 To 4
Console.WriteLine(New String(" "c, 4) & .Next(0, 9999).ToString())
Next
End With
Loop
End Sub
Implementace by mohla vypadat například takto, nicméně je třeba mít na mysli, že implementace metody GetHashCode datového typu String se může lišit s verzí běhového prostředí .NET i typu operačního systému (32 nebo 64 bitů). Zdroje: http://msdn.microsoft.com/en-us/library/...
|