DouKaku?

与えられた文字列を前後反転する関数 reverseString2 を書いてください。
ただし、reverseString2 は単純に文字列を反転するのではなく、括弧の対応
を保存するようにしてください。

以前のお題で作成した単純に与えられた文字列を単純に前後反転したもの返す
reverseString では

  reverseString("文字列(もじれつ)の反転(はんてん)") 
    → ")んてんは(転反の)つれじも(列字文"

のように括弧の対応は保存されませんが、reverseString2 では

  reverseString2("文字列(もじれつ)の反転(はんてん)")
    → "(んてんは)転反の(つれじも)列字文"

のように括弧の対応が保存されます。
括弧文字は、'('と')'、'{'と'}'、'['と']'で、それぞれASCII文字と仮定し
てください。

  reverseString2("対応[の{とれている(さまざまな)括弧}の(例)]です。")
    → "。すで[(例)の{弧括(なまざまさ)るいてれと}の]応対"

入力文字列では対応の取れている括弧の内側には対応の取れない括弧文字はな
いと解釈してください。たとえば、

  reverseString2("これ(は(対応のとれていない)括弧がある例です。")
    → "。すで例るあが弧括(いないてれとの応対)は(れこ"

次のような場合は対応のとれている括弧はないという解釈になります。

  reverseString2("これ(も{対応の)とれていない}括弧の例です")
    → "。すで例の弧括}いないてれと)の応対{も(れこ"

日本語対応にする場合の文字のエンコーディングは実装側で都合のよいように
仮定してください。日本語対応であることは望ましいですが、必須ではありま
せん。 

---
このお題はnobsunさんに投稿いただきました。ご協力ありがとうございます。

　文字列を反転させても括弧の対応を保存するには、括弧を反対向きの括弧と入れ替えれば目的を達成出来ます。
　引数として受け取った文字列を文字配列に変換してループを回しています。
　ループごとに文字を評価して、括弧を反対向きの括弧に変換して戻り値の先頭に挿入しています。文字が括弧でない場合はそのまま挿入しています。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Function reverseString2(ByVal Str As String) As String
    Dim R As String = ""
    For Each Chr As Char In Str.ToCharArray()
        Dim InsertChar As Char
        Select Case Chr
            Case "("c
                InsertChar = ")"c
            Case ")"c
                InsertChar = "("c
            Case "{"c
                InsertChar = "}"c
            Case "}"c
                InsertChar = "{"c
            Case "["c
                InsertChar = "]"c
            Case "]"c
                InsertChar = "["c
            Case Else
                InsertChar = Chr
        End Select
        R = R.Insert(0, InsertChar) '処理に掛かった時間(312500Ticks) 処理が速いこちらのコードを採用
        'R = InsertChar & R '処理に掛かった時間(468750Ticks) 可読性ならこっちかな
    Next
    Return R
End Function