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 |
|
|
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 |