<table><tr><td class="linenos"><pre> 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23</pre></td><td class="code"><div class="highlight"><pre>| parentheses reverseString2 offset |
parentheses := &#39;({[)}]&#39;.
offset := parentheses size // 2.
reverseString2 := [:str |
    | marks |
    marks := OrderedCollection new.
    str copy doWithIndex: [:chr :idx |
        | type |
        type := parentheses indexOf: chr.
        type &gt; offset ifFalse: [type &gt; 0 ifTrue: [marks add: idx; add: type]] ifTrue: [
            (marks notEmpty and: [marks removeLast + offset = type])
                ifTrue: [str swap: idx with: marks removeLast]
                ifFalse: [marks removeLast]]].
    str reversed].

reverseString2 value: &#39;文字列(もじれつ)の反転(はんてん)&#39;.
   &quot;=&gt; &#39;(んてんは)転反の(つれじも)列字文&#39; &quot;
reverseString2 value: &#39;対応[の{とれている(さまざまな)括弧}の(例)]です。&#39;.
   &quot;=&gt; &#39;。すで[(例)の{弧括(なまざまさ)るいてれと}の]応対&#39; &quot;
reverseString2 value: &#39;これ(は(対応のとれていない)括弧がある例です。&#39;.
   &quot;=&gt; &#39;。すで例るあが弧括(いないてれとの応対)は(れこ&#39; &quot;
reverseString2 value: &#39;これ(も{対応の)とれていない}括弧の例です。&#39;.
   &quot;=&gt; &#39;。すで例の弧括}いないてれと)の応対{も(れこ&#39; &quot;
</pre></div>
</td></tr></table>