結果
問題 |
No.1108 移調
|
ユーザー |
|
提出日時 | 2021-06-01 23:09:03 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 592 bytes |
コンパイル時間 | 262 ms |
コンパイル使用メモリ | 19,560 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-11-09 00:22:34 |
合計ジャッジ時間 | 1,246 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 20 |
ソースコード
let split_on_char sep s = let r = ref [] in let j = ref (String.length s) in for i = String.length s - 1 downto 0 do if String.unsafe_get s i = sep then begin r := String.sub s (i + 1) (!j - i - 1) :: !r; j := i end done; String.sub s 0 !j :: !r;; let () = let raw = read_line () |> split_on_char ' ' |> List.map int_of_string in let h = List.nth raw 1 in let target = read_line () |> split_on_char ' ' |> List.map int_of_string in List.map (fun x -> x + h) target |> List.map string_of_int |> String.concat " " |> print_string; print_newline ();