Language Test

Submission #1287336

Source codeソースコード

let rec solve n s =
  if n = 0 then s
  else
    begin
      let li, ri = Scanf.scanf "%d %d\n" (fun x y -> (x-1, y-1)) in
      let rs = String.mapi (fun i c ->
                            if li <= i && i <= ri then
                              s.[ri - i + li]
                            else c
                           ) s in
      solve (n-1) rs
    end

let () =
  let s = Scanf.scanf "%s\n" (fun x -> x) in
  let n = Scanf.scanf "%d\n" (fun x -> x) in
  let s' = solve n s in
  Printf.printf "%s\n" s'

Submission

Task問題 F - 文字列の反転
User nameユーザ名 ducktail
Created time投稿日時
Language言語 OCaml (4.02.3)
Status状態 AC
Score得点 100
Source lengthソースコード長 533 Byte
File nameファイル名
Exec time実行時間 1 ms
Memory usageメモリ使用量 2432 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - subtask0-sample01.txt,subtask0-sample02.txt
All 100 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
subtask0-sample01.txt AC 1 ms 384 KB
subtask0-sample02.txt AC 1 ms 384 KB
subtask1-01.txt AC 1 ms 384 KB
subtask1-02.txt AC 1 ms 384 KB
subtask1-03.txt AC 1 ms 384 KB
subtask1-04.txt AC 1 ms 2432 KB
subtask1-05.txt AC 1 ms 384 KB
subtask1-06.txt AC 1 ms 2432 KB
subtask1-07.txt AC 1 ms 512 KB
subtask1-08.txt AC 1 ms 512 KB
subtask1-09.txt AC 1 ms 512 KB
subtask1-10.txt AC 1 ms 512 KB
subtask1-11.txt AC 1 ms 512 KB
subtask1-12.txt AC 1 ms 512 KB
subtask1-13.txt AC 1 ms 512 KB
subtask1-14.txt AC 1 ms 512 KB
subtask1-15.txt AC 1 ms 512 KB