【.NET】 配列の指定区間内の最大最小を求める方法

Question

前提・実現したいこと

お世話になります。

.NETの配列に関してです。

実現させたい内容は、配列の指定区間の最大値・最小値を求めるプログラムです。
a(0)~a(9),a(10)~a(19),....~a(99)の計10区間それぞれの最大最小を求めます。

プログラムがやたら長い(酷い)ので、もっと効率の良い方法はないかご助言の程お願い致します。

現状は以下のように求めております。(例)
指定区間をnで区切り、for next　でひたすら比較して、同区間を2周して最大最小を求めています。
余りにも幼稚な殴り書きプログラムですが、一応暫定策...

Public Sub saidai()

    Dim maxV1,maxV2,maxV3 ...(省略)... maxV10 as integer = 0
    Dim minV1,minV2,minV3 ...(省略)... minV10 as integer = 0
    Dim a() as integer  '0 ~ 99　まである

    For n = 0 to 9
      If a(n) > maxV1  then
              maxV1 = a(n)
      End If
    Next

    For n = 0 to 9
      If a(n) < minV1  then
              minV1 = a(n)
      End If
    Next
 

　　 For n = 10 to 19
            If a(n) > maxV2  then
            maxV2 = a(n)
    Next


　　'................(省略)................

     For n = 90 to 99
            If a(n) < minV10  then
            minV10 = a(n)
    Next


'その後maxV1～minV10を別演算で使用している。


End Sub

Answer 1

LINQを使って元の配列を10ごとに分割してそれぞれで最小・最大を求める方法もあります。

Dim a() as integer  '0 ~ 99　まである

'10個ごとに分割する
Dim groups = a.Select(Function(v, i) New With {.Value = v, .Index = i}) _
              .GroupBy(Function(v) v.Index / 10) _
              .Select(Function(g) g.Select(Function(v) v.Value))

'各グループごとの最大値と最小値を求める
Dim maxs = groups.Select(Function(g) g.Max())
Dim mins = groups.Select(Function(g) g.Min())

Comments

[momo842]

ご回答ありがとうございます。
LINQ...初めて知りました...
今後の参考にします！

Answer 2

提示されたソースを殆ど変更せずに少しだけ短縮するとすれば、

    For n = 0 to 9
      If a(n) > maxV1  then
              maxV1 = a(n)
      End If
    Next

    For n = 0 to 9
      If a(n) < minV1  then
              minV1 = a(n)
      End If
    Next

このように最大値、最小値を求めているところを

    For n = 0 to 9
      If a(n) > maxV1  then
              maxV1 = a(n)
      End If

      If a(n) < minV1  then
              minV1 = a(n)
      End If
    Next

こうすれば、少し無駄なループが減ります。

これ以上の改善点となると、最大値、最小値を格納する変数を配列化する。
こうすることで、ループが使いやすくなります。

    Dim maxV(9) As Integer, minV(9) As Integer

    For i = 0 To 9
        '最大値、最小値の初期化
        maxV(i) = Integer.MinValue
        minV(i) = Integer.MaxValue

        For j = 0 To 9

            If maxV(i) < a(i * 10 + j) Then
                maxV(i) = a(i * 10 + j)
            End If
            If minV(i) > a(i * 10 + j) Then
                minV(i) = a(i * 10 + j)
            End If

        Next

    Next

ArraySegment<T>構造体を使って必要部分を切り出して、Enumerable.MaxメソッドやEnumerable.Minメソッドを使用するようにするともっと短くできるでしょう。

Comments

[momo842]

ご回答ありがとうございます。
誰でも使える構文の範囲で、効率が良くて尊敬です…
しっかり頭使うようにします笑