配列内のすべての値が同じであるかどうかを調べる - Visual Basic

Question

私のコードは以下の通りです。配列Aの最初の値がAの他のすべての値と同じ場合は、いくつかの大きなif文をタイプすることでそれを行うことができますが、私はむしろそれをしません。

Public Function Areas_Of_England_Checker() 
    Dim South_East() As System.Drawing.Color = {Oxfordshire.BackColor, Buckinhamshire.BackColor, Berkshire.BackColor, Hampshire.BackColor, Isle_Of_White.BackColor, West_Sussex.BackColor, Kent.BackColor, Surrey.BackColor, London.BackColor} 
    Dim South_West() As System.Drawing.Color = {Devon.BackColor, Cornwall.BackColor, Somerset.BackColor, Whiltshire.BackColor, Gloucestershire.BackColor, Dorset.BackColor} 
    Dim East_Anglia() As System.Drawing.Color = {Hertfordshire.BackColor, Bedfordshire.BackColor, Cambridgeshire.BackColor, Essex.BackColor, Suffolk.BackColor, Norfolk.BackColor, Northamptonshire.BackColor} 
    Dim East_Midlands() As System.Drawing.Color = {Lincolnshire.BackColor, Nottinghamshire.BackColor, Leicestershire.BackColor, Derbyshire.BackColor} 
    Dim West_Midlands() As System.Drawing.Color = {Shropshire.BackColor, Staffordshire.BackColor, Herefordshire.BackColor, Worcestershire.BackColor, Warwickshire.BackColor, Cheshire.BackColor} 
    Dim North_West() As System.Drawing.Color = {Manchester.BackColor, Merseyside.BackColor, Lancashire.BackColor, Cumbria.BackColor} 
    Dim Yorkshire() As System.Drawing.Color = {North_Yorkshire.BackColor, West_Yorkshire.BackColor, South_Yorkshire.BackColor, East_Yorkshire.BackColor} 
    Dim North_East() As System.Drawing.Color = {Northumberland.BackColor, County_Durham.BackColor} 
    quicker(South_East, 9) 
    quicker(South_West, 6) 
    quicker(East_Anglia, 7) 
    quicker(East_Midlands, 6) 
    quicker(North_West, 4) 
    quicker(Yorkshire, 4) 
    quicker(North_East, 2) 
End Function 

Public Sub quicker(A As Array, B As Integer) 
    If A(0) Is the same as any value in A Then ' sort-of pseudo-code 
     resupplytroops += B 
    End If 
End Sub 

Answer 1

は、アレイをスキャンするための簡単な機能を実行し、事前に

おかげで...

Public Sub quicker(A As Array, B As Integer) 
    If IsSame(A) Then ' sort-of pseudo-code 
     resupplytroops += B 
    End If 
End Sub 

Private Function IsSame(A As Array) As Boolean 
    For I as Integer = 1 to A.Length - 1 
     If A(I) <> A(0) Then Return False 
    Next 
    Return True 
End Function 

Answer 2

質問テキストおよびサンプルコードの間に断線があります。私は両方のオプションに答えます。これは、アレイ内の任意の値が第1の値に一致する可能性がサンプルコードに基づいている：

Public Sub quicker(A() As System.Drawing.Color, B As Integer) 
    ' If A(0) Is the same as any other value in A 
    If A.Skip(1).Any(Function(i) i.Equals(A(0))) Then 
     resupplytroops += B 
    End If 
End Sub 

ザアレイ内全て値が最初に一致しなければならない質問のテキストに基づいています値：

Public Sub quicker(A() As System.Drawing.Color, B As Integer) 
    If A.All(Function(i) i.Equals(A(0))) Then 
     resupplytroops += B 
    End If 
End Sub 

Answer 3

FYIここでは、In-ラインスキャン時間のベンチマークテストコードと結果の対私きゅうです。

Public Sub LinqVsScanTest() 

    Dim A() As System.Drawing.Color 
    ReDim A(1000000) 
    A.Initialize() 
    A(1000000) = Color.Blue 
    Dim ST As Double 
    Dim MinT As Double = Double.MaxValue 
    Dim MaxT As Double = 0 
    Dim C As Color = A(0) 
    For l = 1 To 1000 
     Dim T As Date = Now 
     Dim B As Boolean = A.All(Function(i) i = C) 
     Dim DT As Double = Delta_MilliSeconds(T, Now) 
     ST += DT 
     If DT > MaxT Then MaxT = DT 
     If DT < MinT Then MinT = DT 

    Next 
    Debug.Print("LinQ took - Average :" & ST/1000 & " Min :" & MinT & " Max :" & MaxT) 

    ST = 0 
    MinT = Double.MaxValue 
    MaxT = 0 

    For l = 1 To 1000 
     Dim T As Date = Now 
     Dim B As Boolean = True 
     For x As Integer = 1 To A.Length - 1 
      If A(x) <> A(0) Then B = False : Exit For 
     Next 
     Dim DT As Double = Delta_MilliSeconds(T, Now) 
     ST += DT 
     If DT > MaxT Then MaxT = DT 
     If DT < MinT Then MinT = DT 

    Next 
    Debug.Print("Scan took - Average :" & ST/1000 & " Min :" & MinT & " Max :" & MaxT) 

End Sub 

結果

きゅうがかかった - 平均：23.640000144951分：21.9999812543392最大：36.0004836693406

をスキャン取った - 平均：7.11899993475527分：5.99976629018784最大：9.00027807801962

を

すべての時間をミリ秒で表します。

覚えておくべきこと..コーディングのショートカット<>コーディングの効率。