文字列の反転(括弧の対応を保存)
Posted feedbacks - Common Lisp
kozima
#3521()
[
Common Lisp
]
とりあえずそのままひっくり返して、対応してた括弧は後で入れ換え。
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 | (defun reverse-string2 (string)
(loop with str = (reverse string) and stack
for c across str and i from 0
do (case c
((#\) #\] #\}) (push (cons c i) stack))
((#\( #\[ #\{)
(if (eql (caar stack) (elt ")]}" (position c "([{")))
(progn
(rotatef (elt str i) (elt str (cdar stack)))
(setf stack (cdr stack)))
(setf stack ()))))
finally (return str)))
;;; test
(defun test (s1 s2)
(format t "~:[NG~;OK~]~%" (string= (reverse-string2 s1) s2)))
(mapc #'test
'("文字列(もじれつ)の反転(はんてん)"
"対応[の{とれている(さまざまな)括弧}の(例)]です。"
"これ(は(対応のとれていない)括弧がある例です。"
"これ(も{対応の)とれていない}括弧の例です。")
'("(んてんは)転反の(つれじも)列字文"
"。すで[(例)の{弧括(なまざまさ)るいてれと}の]応対"
"。すで例るあが弧括(いないてれとの応対)は(れこ"
"。すで例の弧括}いないてれと)の応対{も(れこ"))
|
nobsun
#3450()
Rating-1/1=-1.00
与えられた文字列を前後反転する関数 reverseString2 を書いてください。 ただし、reverseString2 は単純に文字列を反転するのではなく、括弧の対応 を保存するようにしてください。 以前のお題で作成した単純に与えられた文字列を単純に前後反転したもの返す reverseString では reverseString("文字列(もじれつ)の反転(はんてん)") → ")んてんは(転反の)つれじも(列字文" のように括弧の対応は保存されませんが、reverseString2 では reverseString2("文字列(もじれつ)の反転(はんてん)") → "(んてんは)転反の(つれじも)列字文" のように括弧の対応が保存されます。 括弧文字は、'('と')'、'{'と'}'、'['と']'で、それぞれASCII文字と仮定し てください。 reverseString2("対応[の{とれている(さまざまな)括弧}の(例)]です。") → "。すで[(例)の{弧括(なまざまさ)るいてれと}の]応対" 入力文字列では対応の取れている括弧の内側には対応の取れない括弧文字はな いと解釈してください。たとえば、 reverseString2("これ(は(対応のとれていない)括弧がある例です。") → "。すで例るあが弧括(いないてれとの応対)は(れこ" 次のような場合は対応のとれている括弧はないという解釈になります。 reverseString2("これ(も{対応の)とれていない}括弧の例です") → "。すで例の弧括}いないてれと)の応対{も(れこ" 日本語対応にする場合の文字のエンコーディングは実装側で都合のよいように 仮定してください。日本語対応であることは望ましいですが、必須ではありま せん。 --- このお題はnobsunさんに投稿いただきました。ご協力ありがとうございます。[ reply ]