/*コメント*/を取り除く in StandardML DouKaku?

/コメント/を取り除く

与えられた文字列から「/*」と「*/」で挟まれた部分を取り除くコードを書いてください。

なお、「/*」と入力末尾で挟まれた部分も取り除いてください。つまり、入力が「AAA/*BBB」なら出力は「AAA」です。また、コメントは入れ子になりません。入力が「AAA/*BBB/*CCC*/DDD*/EEE」のとき、ひとつめの「*/」でコメントが終わるので出力は「AAADDD*/EEE」になります。「//」や「**」が混ざる場合の挙動は失敗しやすいので要注意です。

Pythonでの実行例は下のようになります：

>>> remove_comment('AAA')
'AAA'
>>> remove_comment('AAA/*BBB*/')
'AAA'
>>> remove_comment('AAA/*BBB')
'AAA'
>>> remove_comment('AAA/*BBB*/CCC')
'AAACCC'
>>> remove_comment('AAA/*BBB/*CCC*/DDD*/EEE')
'AAADDD*/EEE'
>>> remove_comment('AAA/a//*BB*B**/CCC')
'AAA/a/CCC'

このお題は匿名での投稿を参考にして作成しました。ありがとうございます。

post comment

Posted feedbacks - StandardML

SML#のScriptingライブラリは正規表現がawk互換なのでツラい。

fun remove_comment (line) =
  let
    open Script

    val h = find "/\\*" line
    val t = find "\\*/" line

    fun remove_comment' (SOME (l, _), SOME (r, i)) =
      substring (line, 0, l) ^ substring (line, r + i, (size (line)) - (r + i))
      | remove_comment' (SOME (l, _), NONE) = substring (line, 0, l)
      | remove_comment' (NONE, _) = line
  in
    remove_comment' (h, t)
  end;

print (remove_comment ("AAA") ^ "\n");
print (remove_comment ("AAA/*BBB*/") ^ "\n");
print (remove_comment ("AAA/*BBB") ^ "\n");
print (remove_comment ("AAA/*BBB*/CCC") ^ "\n");
print (remove_comment ("AAA/*BBB/*CCC*/DDD*/EEE") ^ "\n");
print (remove_comment ("AAA/a//*BB*B**/CCC") ^ "\n")

DouKaku?

/コメント/を取り除く

Posted feedbacks - StandardML

Index

Feed

Other

Link

Pathtraq