Language Test

Submission #1287287

Source codeソースコード

let flip f x y = f y x

let rec read n =
  if n = 0 then [] else
    let x = read_int () in x :: read (n-1)

let rec solve r w = function
    [] -> 3.14159265358979 *. (float_of_int (r - w))
  | x :: y :: rs -> solve (r + x * x) (w + y * y) rs
  | x :: rs -> solve (r + x * x) w rs

let _ =
  let n = read_int () in
  let l = List.sort (flip compare) @@ read n in
  print_endline @@ string_of_float @@ solve 0 0 l

Submission

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

Test case

Set

Set name Score得点 / Max score Cases
Sample - example_0.txt,example_1.txt
All 100 / 100 example_0.txt,example_1.txt,maxrand_0.txt,maxrand_1.txt,maxrand_2.txt,random_0.txt,random_1.txt,random_2.txt,random_3.txt,random_4.txt,random_5.txt,random_6.txt,random_7.txt,random_8.txt,random_9.txt,special_0.txt,special_1.txt,special_2.txt,special_3.txt,example_0.txt,example_1.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
example_0.txt AC 1 ms 384 KB
example_1.txt AC 1 ms 384 KB
maxrand_0.txt AC 1 ms 768 KB
maxrand_1.txt AC 1 ms 768 KB
maxrand_2.txt AC 1 ms 768 KB
random_0.txt AC 1 ms 512 KB
random_1.txt AC 1 ms 512 KB
random_2.txt AC 1 ms 640 KB
random_3.txt AC 1 ms 512 KB
random_4.txt AC 1 ms 384 KB
random_5.txt AC 1 ms 512 KB
random_6.txt AC 1 ms 640 KB
random_7.txt AC 1 ms 768 KB
random_8.txt AC 1 ms 512 KB
random_9.txt AC 1 ms 640 KB
special_0.txt AC 1 ms 384 KB
special_1.txt AC 1 ms 384 KB
special_2.txt AC 1 ms 384 KB
special_3.txt AC 1 ms 384 KB