Submission #3170820


Source Code Expand

let () = Scanf.scanf "%f %f\n%f %f\n%f %f\n" @@ fun x1 y1 x2 y2 x3 y3 ->
  let a = sqrt @@ (x2 -. x1) ** 2. +. (y2 -. y1) ** 2. in
  let b = sqrt @@ (x3 -. x2) ** 2. +. (y3 -. y2) ** 2. in
  let c = sqrt @@ (x1 -. x3) ** 2. +. (y1 -. y3) ** 2. in
  let s = (a +. b +. c) *. 0.5 in
  let s_ = sqrt @@ s *. (s -. a) *. (s -. b) *. (s -. c) in
  let r = s_ /. s in
  let m = max a @@ max b c in
  Printf.printf "%.13f\n" @@ m *. r /. (2. *. r +. m)

Submission Info

Submission Time
Task B - Inscribed Bicycle
User fetburner
Language OCaml (4.02.3)
Score 500
Code Size 455 Byte
Status AC
Exec Time 1 ms
Memory 384 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 500 / 500
Status
AC × 2
AC × 18
Set Name Test Cases
Sample example0.txt, example1.txt
All 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, example0.txt, example1.txt
Case Name Status Exec Time Memory
000.txt AC 1 ms 384 KB
001.txt AC 1 ms 384 KB
002.txt AC 1 ms 384 KB
003.txt AC 1 ms 384 KB
004.txt AC 1 ms 384 KB
005.txt AC 1 ms 384 KB
006.txt AC 1 ms 384 KB
007.txt AC 1 ms 384 KB
008.txt AC 1 ms 384 KB
009.txt AC 1 ms 384 KB
010.txt AC 1 ms 384 KB
011.txt AC 1 ms 384 KB
012.txt AC 1 ms 384 KB
013.txt AC 1 ms 384 KB
014.txt AC 1 ms 384 KB
015.txt AC 1 ms 384 KB
example0.txt AC 1 ms 384 KB
example1.txt AC 1 ms 384 KB