結果

問題 No.163 cAPSlOCK
ユーザー piconic_Xpiconic_X
提出日時 2015-11-10 00:28:21
言語 OCaml
(5.1.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 235 bytes
コンパイル時間 908 ms
コンパイル使用メモリ 16,896 KB
最終ジャッジ日時 2024-11-14 19:26:25
合計ジャッジ時間 1,646 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
File "Main.ml", line 9, characters 4-28:
9 |     str.[i] <- trans str.[i]
        ^^^^^^^^^^^^^^^^^^^^^^^^
Error: Syntax error: strings are immutable, there is no assignment syntax for them.
Hint: Mutable sequences of bytes are available in the Bytes module.
Hint: Did you mean to use 'Bytes.set'?

ソースコード

diff # 

let trans char =
  let up = Char.uppercase char in
  if char > up then up
  else Char.lowercase char

let () =
  let str = read_line () in
  for i = 0 to String.length str - 1 do
    str.[i] <- trans str.[i]
  done;
  print_endline str
0