AtCoder Beginner Contest 034

Submission #707987

Source codeソースコード

let rec tabulate n f = 
  let rec loop acc m =
    if m < n then loop (f m :: acc) (m + 1)
    else List.rev acc in
  loop [] 0

let rec power ( * ) one m = function
  | 0 -> one
  | n when n mod 2 = 0 ->
      power ( * ) one (m * m) (n / 2)
  | n ->
      m * power ( * ) one m (n - 1)

let n = 1000000007
let ( * ) x y = (x * y) mod n
let fact m = List.fold_left ( * ) 1 (tabulate m (fun i -> (i + 1) mod n))

let () = Scanf.scanf "%d %d" (fun w h ->
  Printf.printf "%d\n" @@ 
    fact (h + w - 2) * power ( * ) 1 (fact (h - 1) * fact (w - 1)) (n - 2))

Submission

Task問題 C - 経路
User nameユーザ名 launderer
Created time投稿日時
Language言語 OCaml (4.02.1)
Status状態 AC
Score得点 101
Source lengthソースコード長 577 Byte
File nameファイル名
Exec time実行時間 97 ms
Memory usageメモリ使用量 11936 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - s0.txt,s1.txt
Dataset1 50 / 50 000.txt,001.txt,002.txt,003.txt,004.txt,005.txt,006.txt,007.txt,008.txt,009.txt,010.txt,s0.txt
Dataset2 50 / 50 000.txt,001.txt,002.txt,003.txt,004.txt,005.txt,006.txt,007.txt,008.txt,009.txt,010.txt,011.txt,012.txt,013.txt,014.txt,015.txt,016.txt,017.txt,018.txt,019.txt,020.txt,021.txt,s0.txt,s1.txt
All 1 / 1 000.txt,001.txt,002.txt,003.txt,004.txt,005.txt,006.txt,007.txt,008.txt,009.txt,010.txt,011.txt,012.txt,013.txt,014.txt,015.txt,016.txt,017.txt,018.txt,019.txt,020.txt,021.txt,022.txt,023.txt,024.txt,025.txt,026.txt,027.txt,028.txt,029.txt,030.txt,031.txt,032.txt,s0.txt,s1.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
000.txt AC 24 ms 1052 KB
001.txt AC 24 ms 864 KB
002.txt AC 24 ms 1052 KB
003.txt AC 24 ms 932 KB
004.txt AC 24 ms 928 KB
005.txt AC 24 ms 920 KB
006.txt AC 26 ms 1056 KB
007.txt AC 25 ms 1052 KB
008.txt AC 24 ms 928 KB
009.txt AC 25 ms 1052 KB
010.txt AC 25 ms 928 KB
011.txt AC 26 ms 1180 KB
012.txt AC 25 ms 1052 KB
013.txt AC 26 ms 1184 KB
014.txt AC 25 ms 1176 KB
015.txt AC 26 ms 1176 KB
016.txt AC 25 ms 1056 KB
017.txt AC 26 ms 1184 KB
018.txt AC 24 ms 1056 KB
019.txt AC 26 ms 1048 KB
020.txt AC 24 ms 1056 KB
021.txt AC 26 ms 1056 KB
022.txt AC 75 ms 9892 KB
023.txt AC 72 ms 10912 KB
024.txt AC 68 ms 9888 KB
025.txt AC 32 ms 3240 KB
026.txt AC 32 ms 3240 KB
027.txt AC 59 ms 8868 KB
028.txt AC 72 ms 9888 KB
029.txt AC 45 ms 6316 KB
030.txt AC 89 ms 10908 KB
031.txt AC 62 ms 10152 KB
032.txt AC 97 ms 11936 KB
s0.txt AC 26 ms 928 KB
s1.txt AC 25 ms 932 KB