結果
問題 | No.380 悪の台本 |
ユーザー | kuuso1 |
提出日時 | 2016-09-03 01:44:16 |
言語 | F# (F# 4.0) |
結果 |
WA
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,307 bytes |
コンパイル時間 | 7,535 ms |
コンパイル使用メモリ | 197,872 KB |
実行使用メモリ | 52,736 KB |
最終ジャッジ日時 | 2024-04-24 14:48:32 |
合計ジャッジ時間 | 8,439 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | WA | - |
testcase_01 | AC | 71 ms
33,024 KB |
testcase_02 | AC | 66 ms
32,640 KB |
testcase_03 | AC | 66 ms
32,768 KB |
testcase_04 | AC | 82 ms
33,920 KB |
testcase_05 | AC | 122 ms
36,480 KB |
testcase_06 | AC | 107 ms
36,224 KB |
testcase_07 | AC | 416 ms
52,736 KB |
testcase_08 | AC | 72 ms
35,456 KB |
testcase_09 | AC | 84 ms
34,816 KB |
コンパイルメッセージ
復元対象のプロジェクトを決定しています... /home/judge/data/code/main.fsproj を復元しました (288 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 System open System.Text.RegularExpressions let ri () = stdin.ReadLine() |> int let ria () = stdin.ReadLine().Split() |> Array.map int type Sol() = member this.Solve() = let okMsg = "CORRECT (maybe)" let ngMsg = "WRONG!" let judgeWords (s :string) = let ss = s.Split() match (ss.[0] ,s,ss) with | ("digi",_,_ ) when Regex.Match(s,"[nN][yY][oO][^a-zA-Z0-9]{0,3}$").Success && ss.Length > 1 -> okMsg | ("petit",_,_ ) when Regex.Match(s,"[nN][yY][uU][^a-zA-Z0-9]{0,3}$").Success && ss.Length > 1 -> okMsg | ("rabi",_,_ ) when ss.Length > 1 && Regex.Match(s.Substring(5),"[a-zA-Z0-9]").Success -> okMsg | ("gema",_,_ ) when Regex.Match(s,"[gG][eE][mM][aA][^a-zA-Z0-9]{0,3}$").Success && ss.Length > 1 -> okMsg | ("piyo",_,_ ) when Regex.Match(s,"[pP][yY][oO][^a-zA-Z0-9]{0,3}$").Success && ss.Length > 1 -> okMsg | (_,_ ,_) -> ngMsg let mutable chk = true let mutable input :string = "" while chk do input <- stdin.ReadLine() chk <- (input = null) |> not if chk then (if input = "" then ngMsg else input |> judgeWords )|> printfn "%s" let mySol = new Sol() mySol.Solve()