Reply to thread

Message

<blockquote data-quote="drothgery" data-source="post: 2187697" data-attributes="member: 360">My VB.NET Monte Carlo attempt is coming with around 30.9, a little higher than most of you got, though I'm playing with the VS.NET 2005 Beta 2 compilers, and this code uses some new features, so I'm wondering if I'm making any mistakes...[sblock][code]Private Sub GoBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBtn.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim iterationsCount As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim totalPoints As Long = 0&nbsp; &nbsp; &nbsp; &nbsp; Dim avgPoints As Double&nbsp; &nbsp; &nbsp; &nbsp; If Integer.TryParse(Me.NumTb.Text, iterationsCount) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim rnd As New System.Random&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For i As Integer = 0 To iterationsCount&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalPoints += RollCharacter(rnd)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; avgPoints = totalPoints / iterationsCount&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RsltsLbl.Text = avgPoints.ToString&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Function RollCharacter(ByVal rnd As Random) As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim charPoints As Integer = 0&nbsp; &nbsp; &nbsp; &nbsp; Dim diceRslts As New List(Of Integer)&nbsp; &nbsp; &nbsp; &nbsp; Dim rollValue As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim maxVal As Integer = 0&nbsp; &nbsp; &nbsp; &nbsp; Dim totalMod As Integer = 0&nbsp; &nbsp; &nbsp; &nbsp; Dim maxStat As Integer = 0&nbsp; &nbsp; &nbsp; &nbsp; For i As Integer = 1 To 6&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'roll 4d6, drop the lowest&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; rollValue = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; diceRslts.Clear()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For d As Integer = 0 To 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; diceRslts.Add(rnd.Next(1, 7))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; diceRslts.Sort()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For d As Integer = 1 To 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; rollValue += diceRslts(d)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'get point value, adjust total modifier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case rollValue&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 6&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 7&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 8&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 9&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 10&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 11&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 12&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 13&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 14&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 6&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 15&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 8&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 16&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 10&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 17&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 13&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 18&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; charPoints += 16&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMod += 4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; maxStat = Math.Max(maxStat, rollValue)&nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; If totalMod &gt; 0 AndAlso maxStat &gt; 13 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return charPoints&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return RollCharacter(rnd)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Function[/code][/sblock]</blockquote>

[QUOTE="drothgery, post: 2187697, member: 360"] My VB.NET Monte Carlo attempt is coming with around 30.9, a little higher than most of you got, though I'm playing with the VS.NET 2005 Beta 2 compilers, and this code uses some new features, so I'm wondering if I'm making any mistakes... [sblock][code] Private Sub GoBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBtn.Click Dim iterationsCount As Integer Dim totalPoints As Long = 0 Dim avgPoints As Double If Integer.TryParse(Me.NumTb.Text, iterationsCount) Then Dim rnd As New System.Random For i As Integer = 0 To iterationsCount totalPoints += RollCharacter(rnd) Next avgPoints = totalPoints / iterationsCount RsltsLbl.Text = avgPoints.ToString End If End Sub Private Function RollCharacter(ByVal rnd As Random) As Integer Dim charPoints As Integer = 0 Dim diceRslts As New List(Of Integer) Dim rollValue As Integer Dim maxVal As Integer = 0 Dim totalMod As Integer = 0 Dim maxStat As Integer = 0 For i As Integer = 1 To 6 'roll 4d6, drop the lowest rollValue = 0 diceRslts.Clear() For d As Integer = 0 To 3 diceRslts.Add(rnd.Next(1, 7)) Next diceRslts.Sort() For d As Integer = 1 To 3 rollValue += diceRslts(d) Next 'get point value, adjust total modifier Select Case rollValue Case 3 totalMod += -4 charPoints += 0 Case 4 totalMod += -3 charPoints += 0 Case 5 totalMod += -3 charPoints += 0 Case 6 totalMod += -2 charPoints += 0 Case 7 totalMod += -2 charPoints += 0 Case 8 totalMod += -1 charPoints += 0 Case 9 totalMod += -1 charPoints += 1 Case 10 totalMod += 0 charPoints += 2 Case 11 totalMod += 0 charPoints += 3 Case 12 totalMod += 1 charPoints += 4 Case 13 totalMod += 1 charPoints += 5 Case 14 charPoints += 6 totalMod += 2 Case 15 charPoints += 8 totalMod += 2 Case 16 charPoints += 10 totalMod += 3 Case 17 charPoints += 13 totalMod += 3 Case 18 charPoints += 16 totalMod += 4 End Select maxStat = Math.Max(maxStat, rollValue) Next If totalMod > 0 AndAlso maxStat > 13 Then Return charPoints Else Return RollCharacter(rnd) End If End Function [/code][/sblock] [/QUOTE]

Verification