結果
問題 | No.138 化石のバージョン |
ユーザー |
![]() |
提出日時 | 2017-08-11 04:56:26 |
言語 | OCaml (5.2.1) |
結果 |
WA
|
実行時間 | - |
コード長 | 190 bytes |
コンパイル時間 | 813 ms |
コンパイル使用メモリ | 21,444 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 00:10:23 |
合計ジャッジ時間 | 1,937 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 WA * 2 |
other | AC * 18 WA * 15 |
ソースコード
let read () = Scanf.scanf "%d.%d.%d " (fun a b c -> a, b, c) let () = let a, b, c = read () in let x, y, z = read () in print_endline (if a > x && b > y && c > z then "NO" else "YES")