結果

問題 No.516 赤と青の風船
コンテスト
ユーザー tanson
提出日時 2025-10-13 05:53:45
言語 Standard ML
(MLton 20210117)
結果
AC  
実行時間 1 ms / 2,000 ms
コード長 825 bytes
コンパイル時間 9,010 ms
コンパイル使用メモリ 689,404 KB
実行使用メモリ 7,716 KB
最終ジャッジ日時 2025-10-13 05:53:56
合計ジャッジ時間 5,366 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 6
権限があれば一括ダウンロードができます

ソースコード

diff # 

fun readStr () =
    let
        fun scan reader stream = SOME (StringCvt.splitl (not o Char.isSpace) reader (StringCvt.skipWS reader stream))
    in
        valOf (TextIO.scanStream scan TextIO.stdIn)
    end


val () =
    let
        val s1 = readStr ()
        val s2 = readStr ()
        val s3 = readStr ()

        fun findAns () =
            let
                exception BadInput

                fun findAnsAux [] = 0
                  | findAnsAux ("RED" :: tl) = 1 + findAnsAux tl
                  | findAnsAux ("BLUE" :: tl) = ~1 + findAnsAux tl
                  | findAnsAux _ = raise BadInput 
            in
                if 0 < findAnsAux [s1, s2, s3] then "RED"
                else "BLUE"
            end
                        
        val ans = findAns ()
    in
        print (ans ^ "\n")
    end
0