結果
問題 | No.734 Careful Engineer |
ユーザー |
![]() |
提出日時 | 2019-02-17 15:45:07 |
言語 | F# (F# 4.0) |
結果 |
RE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 678 bytes |
コンパイル時間 | 21,531 ms |
コンパイル使用メモリ | 199,880 KB |
実行使用メモリ | 35,456 KB |
最終ジャッジ日時 | 2025-01-18 00:07:23 |
合計ジャッジ時間 | 11,865 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 10 RE * 1 |
コンパイルメッセージ
復元対象のプロジェクトを決定しています... /home/judge/data/code/main.fsproj を復元しました (892 ミリ秒)。 main -> /home/judge/data/code/bin/Release/net8.0/main.dll main -> /home/judge/data/code/bin/Release/net8.0/publish/
ソースコード
type [<Measure>] s = static member toS (x: int64) = x * 1L<s> type [<Measure>] m = static member m2s (m: int64<m>) = m * 60L<s/m> static member toM (x: int64) = x * 1L<m> type [<Measure>] h = static member h2s (h: int64<h>) = h * 3600L<s/h> static member toH (x: int64) = x * 1L<h> let solve a b c = let a' = a |> m.m2s let c' = c |> h.h2s let x = (c', a' - b) match x with | _, x when x < 0L<s> -> None | x, y when x % y = 0L<s> -> Some(x / y) | x, y -> Some(x / y + 1L) let A, B, C = let t = stdin.ReadLine().Split() |> Array.map int64 m.toM t.[0], s.toS t.[1], h.toH t.[2] solve A B C |> function | Some(x) -> x | None -> -1L |> stdout.WriteLine