結果
問題 |
No.159 刺さらないUSB
|
ユーザー |
![]() |
提出日時 | 2015-11-12 16:10:44 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 1,000 ms |
コード長 | 216 bytes |
コンパイル時間 | 1,481 ms |
コンパイル使用メモリ | 21,444 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-01 23:53:41 |
合計ジャッジ時間 | 2,211 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 18 |
ソースコード
let judge p q = if q *. (1. -. p) < p *. q *. (1. -. q) then true else false let () = let bool = Scanf.sscanf (read_line ()) "%f %f" judge in if bool = true then print_endline "YES" else print_endline "NO"