結果

問題 No.380 悪の台本
ユーザー ichibanshiboriichibanshibori
提出日時 2016-06-25 03:31:44
言語 F#
(F# 4.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 797 bytes
コンパイル時間 8,859 ms
コンパイル使用メモリ 185,620 KB
最終ジャッジ日時 2024-04-27 02:21:20
合計ジャッジ時間 9,535 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (498 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
/home/judge/data/code/Main.fs(11,39): error FS0041: このプログラム ポイントよりも前の型情報に基づいて、メソッド 'IsMatch' の固有のオーバーロードを決定することができませんでした。型の注釈が必要な場合があります。既知の型の引数: 'a候補: - Regex.IsMatch(input: System.ReadOnlySpan<char>) : bool - Regex.IsMatch(input: string) : bool [/home/judge/data/code/main.fsproj]

ソースコード

diff # 

open System.Text.RegularExpressions

let doIt () =
    let patterns = [Regex("^digi .*(?i)nyo[^a-zA-Z0-9]{0,3}$");
                    Regex("^petit .*(?i)nyu[^a-zA-Z0-9]{0,3}$");
                    Regex("^gema .*(?i)gema[^a-zA-Z0-9]{0,3}$");
                    Regex("^piyo .*(?i)pyo[^a-zA-Z0-9]{0,3}$");
                    Regex("^rabi .*[a-zA-Z0-9]");]

    let isCorrect line =
        patterns |> Seq.map (fun p -> p.IsMatch(line)) |> Seq.exists id

    seq {
        let mutable line = stdin.ReadLine ()
        while line <> null do
            yield line
            line <- stdin.ReadLine ()
    } |> Seq.map (fun l -> match isCorrect l with
                           | true -> "CORRECT (maybe)"
                           | false -> "WRONG!") |>
    Seq.iter (printfn "%s")

doIt ()
0