View difference between Paste ID: MpnrPKjs and K9j2aatR

 Public Class Form1
     ' Date made: 1 July 2012
     ' The aim of this program is to determine which method is faster in determining whether a given tic-tac-toe board contains a
     ' win: representing the board as two boolean arrays, one for each player, and checking for wins by simply checking each of the
     ' rows/columns, or representing the board as two integers, one for each player, with each position on the board being a prime
     ' number, and checking for wins by testing for divisibility of the specified number. A number of boards will be generated,
     ' and both methods will test the same boards.
 
     ' Results: Prime method is far more efficient.
 
     Dim numberOfGenerations As Integer = 100000
     Dim boardToPrime As New Dictionary(Of Integer, Integer)
     Dim currentZeroToEightList As New List(Of Integer)
     ' The boards to be generated, saved and tested.
     Dim playerOneArrays As New List(Of Array)
     Dim playerTwoArrays As New List(Of Array)
     Dim playerOneNumbers As New List(Of Integer)
     Dim playerTwoNumbers As New List(Of Integer)
 
 
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
         Randomize()
 
         ' Make the "board number to prime number" dictionary.
         boardToPrime(1) = 2
         boardToPrime(2) = 3
         boardToPrime(3) = 5
         boardToPrime(4) = 7
         boardToPrime(5) = 11
         boardToPrime(6) = 13
         boardToPrime(7) = 17
         boardToPrime(8) = 19
         boardToPrime(9) = 23
 
     End Sub
 
     Private Sub btnGenerateBoards_Click(sender As System.Object, e As System.EventArgs) Handles btnGenerateBoards.Click
         ' Two different types of boards have to be generated, one type for each method.
 
         ' Reset the overall lists.
         playerOneArrays.Clear()
         playerTwoArrays.Clear()
         playerOneNumbers.Clear()
         playerTwoNumbers.Clear()
         For i = 1 To numberOfGenerations
             ' Declare arrays and player numbers.
             Dim playerOneArray(8) As Boolean
             Dim playerTwoArray(8) As Boolean
             Dim playerOneNumber As Integer = 1
             Dim playerTwoNumber As Integer = 1
             Dim numberOfCrosses, numberOfNoughts As Integer
             ' Reset boolean arrays.
             For j = 0 To 8
                 playerOneArray(j) = False
                 playerTwoArray(j) = False
             Next
             ' Randomise the number of noughts and crosses (whichever is randomised first has a higher chance of being higher).
             If Rnd() > 0.5 Then
                 numberOfCrosses = Math.Floor(Rnd() * 9)
                 numberOfNoughts = Math.Floor(Rnd() * (9 - numberOfCrosses))
             Else
                 numberOfNoughts = Math.Floor(Rnd() * 9)
                 numberOfCrosses = Math.Floor(Rnd() * (9 - numberOfNoughts))
             End If
             ' Reset the currentZeroToEightList.
             currentZeroToEightList.Clear()
             For j = 0 To 8
                 currentZeroToEightList.Add(j)
             Next
             ' Randomly place the pieces in the boolean arrays, using a list to avoid picking the same number twice.
             For j = 1 To numberOfCrosses
                 Dim randomNumber As Integer = currentZeroToEightList(Math.Floor(Rnd() * currentZeroToEightList.Count))
                 currentZeroToEightList.Remove(randomNumber)
                 playerOneArray(randomNumber) = True
             Next j
             For j = 1 To numberOfNoughts
                 Dim randomNumber As Integer = currentZeroToEightList(Math.Floor(Rnd() * currentZeroToEightList.Count))
                 currentZeroToEightList.Remove(randomNumber)
                 playerTwoArray(randomNumber) = True
             Next j
             ' Transfer the pieces in the boolean arrays to the numbers.
             For j = 0 To 8
                 If playerOneArray(j) = True Then
                     playerOneNumber *= boardToPrime(j + 1)
                 End If
                 If playerTwoArray(j) = True Then
                     playerTwoNumber *= boardToPrime(j + 1)
                 End If
             Next j
             ' Add these board representations to the overall lists.
             playerOneArrays.Add(playerOneArray)
             playerTwoArrays.Add(playerTwoArray)
             playerOneNumbers.Add(playerOneNumber)
             playerTwoNumbers.Add(playerTwoNumber)
         Next i
         MessageBox.Show("Done.")
     End Sub
 
     Private Sub btnRunPrimeMethod_Click(sender As System.Object, e As System.EventArgs) Handles btnRunPrimeMethod.Click
         ' Test all the boards for wins using the prime method, and time the process.
 
         Dim numberOfPlayerOneWins As Integer = 0
         Dim numberOfPlayerTwoWins As Integer = 0
         Dim currentNumber As Integer
 
         Dim startTime As Date = Now
 
         For i = 0 To numberOfGenerations - 1
             currentNumber = playerOneNumbers(i)
             ' Check for player one wins.
             ' Rows.
             If currentNumber Mod 30 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentNumber Mod 1001 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentNumber Mod 7429 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             ' Columns.
             If currentNumber Mod 238 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentNumber Mod 627 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentNumber Mod 1495 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             ' Diagonals.
             If currentNumber Mod 506 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentNumber Mod 935 = 0 Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
 
             currentNumber = playerTwoNumbers(i)
             ' Check for player two wins.
 
             ' Rows.
             If currentNumber Mod 30 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentNumber Mod 1001 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentNumber Mod 7429 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             ' Columns.
             If currentNumber Mod 238 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentNumber Mod 627 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentNumber Mod 1495 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             ' Diagonals.
             If currentNumber Mod 506 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentNumber Mod 935 = 0 Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
         Next i
 
         Dim runLength As TimeSpan = Now.Subtract(startTime)
         Dim milliseconds As Integer = runLength.TotalMilliseconds
 
         MessageBox.Show("Done." & vbNewLine & vbNewLine & "Player one wins: " & numberOfPlayerOneWins & vbNewLine & "Player two wins: " & numberOfPlayerTwoWins & vbNewLine & vbNewLine & "Time taken(ms): " & milliseconds)
     End Sub
     Private Sub btnRunBooleanMethod_Click(sender As System.Object, e As System.EventArgs) Handles btnRunBooleanMethod.Click
         ' Test all the boards for wins using the boolean method, and time the process.
 
         Dim numberOfPlayerOneWins As Integer = 0
         Dim numberOfPlayerTwoWins As Integer = 0
         Dim currentArray As Array
 
         Dim startTime As Date = Now
 
         For i = 0 To numberOfGenerations - 1
             currentArray = playerOneArrays(i)
             ' Check for player one wins.
             ' Rows.
             If currentArray(0) And currentArray(1) And currentArray(2) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentArray(3) And currentArray(4) And currentArray(5) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentArray(6) And currentArray(7) And currentArray(8) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             ' Columns.
             If currentArray(0) And currentArray(3) And currentArray(6) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentArray(1) And currentArray(4) And currentArray(7) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentArray(2) And currentArray(5) And currentArray(8) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             ' Diagonals.
             If currentArray(0) And currentArray(4) And currentArray(8) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
             If currentArray(2) And currentArray(4) And currentArray(6) Then
                 numberOfPlayerOneWins += 1
                 Continue For
             End If
 
             currentArray = playerTwoArrays(i)
             ' Check for player two wins.
             ' Rows.
             If currentArray(0) And currentArray(1) And currentArray(2) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentArray(3) And currentArray(4) And currentArray(5) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentArray(6) And currentArray(7) And currentArray(8) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             ' Columns.
             If currentArray(0) And currentArray(3) And currentArray(6) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentArray(1) And currentArray(4) And currentArray(7) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentArray(2) And currentArray(5) And currentArray(8) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             ' Diagonals.
             If currentArray(0) And currentArray(4) And currentArray(8) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
             If currentArray(2) And currentArray(4) And currentArray(6) Then
                 numberOfPlayerTwoWins += 1
                 Continue For
             End If
         Next i
 
         Dim runLength As TimeSpan = Now.Subtract(startTime)
         Dim milliseconds As Integer = runLength.TotalMilliseconds
 
         MessageBox.Show("Done." & vbNewLine & vbNewLine & "Player one wins: " & numberOfPlayerOneWins & vbNewLine & "Player two wins: " & numberOfPlayerTwoWins & vbNewLine & vbNewLine & "Time taken(ms): " & milliseconds)
     End Sub
 
 End Class