結果
問題 | 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.m2slet c' = c |> h.h2slet 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 int64m.toM t.[0], s.toS t.[1], h.toH t.[2]solve A B C|> function | Some(x) -> x | None -> -1L|> stdout.WriteLine