Submission #340547

Source Code Expand

let () =
  Scanf.scanf "%s %d " (fun s n ->
    for i = 0 to n - 1 do
      Scanf.scanf "%d %d " (fun l r ->
        let d = r - l + 1 in
        let l, r = l - 1, r - 1 in
        for i = 0 to d / 2 - 1 do
          let t = s.[r - i] in
          s.[r - i] <- s.[l + i];
          s.[l + i] <- t
        done);
    done;
    print_endline s)
;;

Submission Info

Submission Time
Task B - 文字列の反転
User iab
Language OCaml (3.12.1)
Score 100
Code Size 360 Byte
Status AC
Exec Time 27 ms
Memory 1052 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 17
Set Name Test Cases
Sample subtask0-sample01.txt, subtask0-sample02.txt
All subtask0-sample01.txt, subtask0-sample02.txt, subtask1-01.txt, subtask1-02.txt, subtask1-03.txt, subtask1-04.txt, subtask1-05.txt, subtask1-06.txt, subtask1-07.txt, subtask1-08.txt, subtask1-09.txt, subtask1-10.txt, subtask1-11.txt, subtask1-12.txt, subtask1-13.txt, subtask1-14.txt, subtask1-15.txt
Case Name Status Exec Time Memory
subtask0-sample01.txt AC 24 ms 916 KiB
subtask0-sample02.txt AC 23 ms 928 KiB
subtask1-01.txt AC 24 ms 924 KiB
subtask1-02.txt AC 25 ms 928 KiB
subtask1-03.txt AC 25 ms 924 KiB
subtask1-04.txt AC 23 ms 888 KiB
subtask1-05.txt AC 26 ms 860 KiB
subtask1-06.txt AC 25 ms 1004 KiB
subtask1-07.txt AC 26 ms 1000 KiB
subtask1-08.txt AC 25 ms 1032 KiB
subtask1-09.txt AC 27 ms 996 KiB
subtask1-10.txt AC 26 ms 1048 KiB
subtask1-11.txt AC 24 ms 1048 KiB
subtask1-12.txt AC 24 ms 1052 KiB
subtask1-13.txt AC 26 ms 1044 KiB
subtask1-14.txt AC 23 ms 1052 KiB
subtask1-15.txt AC 25 ms 1052 KiB