結果

問題 No.671 1000000007
コンテスト
ユーザー tanson
提出日時 2025-11-05 05:18:54
言語 Standard ML
(MLton 20210117)
結果
AC  
実行時間 1 ms / 2,000 ms
コード長 566 bytes
コンパイル時間 7,990 ms
コンパイル使用メモリ 687,228 KB
実行使用メモリ 7,716 KB
最終ジャッジ日時 2025-11-05 05:19:03
合計ジャッジ時間 6,773 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 9
権限があれば一括ダウンロードができます

ソースコード

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 n = readStr ()

        val numOfZero =
            List.foldl
                (fn (ch, acc) =>
                    if ch = #"0" then 1 + acc
                    else acc)
                0
                (String.explode n)
        val ans = Int.abs (8 - numOfZero)
    in
        print (Int.toString ans ^ "\n")  
    end
0