結果
問題 | No.531 エヌスクミ島の平和協定 |
ユーザー |
![]() |
提出日時 | 2018-04-09 08:04:10 |
言語 | F# (F# 4.0) |
結果 |
AC
|
実行時間 | 315 ms / 2,000 ms |
コード長 | 622 bytes |
コンパイル時間 | 15,020 ms |
コンパイル使用メモリ | 185,900 KB |
実行使用メモリ | 35,000 KB |
最終ジャッジ日時 | 2024-09-19 18:37:16 |
合計ジャッジ時間 | 20,018 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 37 |
コンパイルメッセージ
復元対象のプロジェクトを決定しています... /home/judge/data/code/main.fsproj を復元しました (343 ms)。 MSBuild のバージョン 17.9.6+a4ecab324 (.NET) main -> /home/judge/data/code/bin/Release/net8.0/main.dll main -> /home/judge/data/code/bin/Release/net8.0/publish/
ソースコード
open Systemopen System.Collections.Generic[<AutoOpen>]module hoge =let inline dump e =#if DEBUGprintfn "%A" e;#endifelet read() = stdin.ReadLine()let reads() = read().Split()let readToEnd() = stdin.ReadToEnd()let lines(s:string) = s.Split([|stdout.NewLine|], StringSplitOptions.RemoveEmptyEntries)let (|ODD|EVE|) n =match n%2 with| 0 -> EVE| _ -> ODDlet n,m = let t = reads() |> Array.map(int) in t.[0],t.[1]if n<=m then 1elsematch n with| ODD -> -1| EVE ->if n/2<=m then 2else -1|> printfn "%i"