結果
問題 | No.163 cAPSlOCK |
ユーザー |
![]() |
提出日時 | 2015-11-09 23:51:42 |
言語 | OCaml (5.1.0) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 510 bytes |
コンパイル時間 | 1,606 ms |
コンパイル使用メモリ | 16,896 KB |
最終ジャッジ日時 | 2024-11-14 19:26:23 |
合計ジャッジ時間 | 2,041 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
File "Main.ml", line 11, characters 4-30: 11 | str.[i] <- trans str.[i] 0 ^^^^^^^^^^^^^^^^^^^^^^^^^^ 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'?
ソースコード
let bets = [|'a';'b';'c';'d';'e';'f';'g';'h';'i';'j';'k';'l';'m';'n';'o';'p';'q';'r';'s';'t';'u';'v';'w';'x';'y';'z';'A';'B';'C';'D';'E';'F';'G';'H';'I';'J';'K';'L';'M';'N';'O';'P';'Q';'R';'S';'T';'U';'V';'W';'X';'Y';'Z'|] let rec trans char i = if bets.(i) = char then if i > 25 then bets.(i-26) else bets.(i+26) else trans char (i+1) let main str = for i = 0 to String.length str - 1 do str.[i] <- trans str.[i] 0 done let () = let str = read_line () in main str; print_endline str