結果

問題 No.18 うーさー暗号
ユーザー r6ever6eve
提出日時 2017-08-10 11:16:35
言語 OCaml
(5.1.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 423 bytes
コンパイル時間 442 ms
コンパイル使用メモリ 17,024 KB
最終ジャッジ日時 2024-11-14 20:11:39
合計ジャッジ時間 811 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
File "Main.ml", line 8, characters 14-27:
8 |       let r = String.create l in
                  ^^^^^^^^^^^^^
Error: Unbound value String.create

ソースコード

diff # 

module String = struct
  include String

  (* @since 4.02.0 *)
  let mapi f s =
    let l = String.length s in
    if l = 0 then s else begin
      let r = String.create l in
      for i = 0 to l - 1 do String.set r i (f i s.[i]) done;
      r
    end

end

let () =
  read_line ()
  |> String.mapi (fun i c ->
    (Char.code c - Char.code 'A' - ((i + 1) mod 26) + 26) mod 26 + Char.code 'A' |> Char.chr)
  |> print_endline
0