文字列の反転(括弧の対応を保存)
Posted feedbacks - OCaml
asciiカッコのみ対応です。日本語カッコは常に反転されます。
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 26 27 28 29 30 31 32 33 34 35 36 37 38 | let trade arr i j =
let get,set = String.get,String.set in
let carry x y = set arr i y; set arr j x in
carry (get arr i) (get arr j);;
module MBstr = struct
let byte = ref 3
let char_size = function
| '\000'..'\127' -> 1
| _ -> !byte;;
let rev s =
let len = String.length s in
let res = String.create len in
let rec loop i j =
if i>=len then res else (
let size = char_size s.[i] in
String.blit s i res (j-size) size;
loop (i+size) (j-size)
)
in loop 0 len;;
let rev_brackets op cl s =
let len = String.length s in
let rec loop i acc =
if i>=len then s else
loop (char_size s.[i] + i) (
if String.contains op s.[i] then (i::acc) else (
try (if op.[String.index cl s.[i]] = s.[List.hd acc]
then trade s (List.hd acc) i); List.tl acc
with Not_found | Failure _ -> acc
))
in loop 0 [];;
end;;
let reverse_string2 s =
print_endline (MBstr.rev_brackets ")]}" "([{" (MBstr.rev s));;
|
nobsun
#3450()
Rating-1/1=-1.00
与えられた文字列を前後反転する関数 reverseString2 を書いてください。 ただし、reverseString2 は単純に文字列を反転するのではなく、括弧の対応 を保存するようにしてください。 以前のお題で作成した単純に与えられた文字列を単純に前後反転したもの返す reverseString では reverseString("文字列(もじれつ)の反転(はんてん)") → ")んてんは(転反の)つれじも(列字文" のように括弧の対応は保存されませんが、reverseString2 では reverseString2("文字列(もじれつ)の反転(はんてん)") → "(んてんは)転反の(つれじも)列字文" のように括弧の対応が保存されます。 括弧文字は、'('と')'、'{'と'}'、'['と']'で、それぞれASCII文字と仮定し てください。 reverseString2("対応[の{とれている(さまざまな)括弧}の(例)]です。") → "。すで[(例)の{弧括(なまざまさ)るいてれと}の]応対" 入力文字列では対応の取れている括弧の内側には対応の取れない括弧文字はな いと解釈してください。たとえば、 reverseString2("これ(は(対応のとれていない)括弧がある例です。") → "。すで例るあが弧括(いないてれとの応対)は(れこ" 次のような場合は対応のとれている括弧はないという解釈になります。 reverseString2("これ(も{対応の)とれていない}括弧の例です") → "。すで例の弧括}いないてれと)の応対{も(れこ" 日本語対応にする場合の文字のエンコーディングは実装側で都合のよいように 仮定してください。日本語対応であることは望ましいですが、必須ではありま せん。 --- このお題はnobsunさんに投稿いただきました。ご協力ありがとうございます。[ reply ]