結果

問題 No.231 めぐるはめぐる (1)
コンテスト
ユーザー tanson
提出日時 2026-05-16 01:00:48
言語 Standard ML
(MLton 20241230)
コンパイル:
mlton_wrapper _filename_
実行:
./main
結果
AC  
実行時間 1 ms / 1,000 ms
コード長 885 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 5,934 ms
コンパイル使用メモリ 704,360 KB
実行使用メモリ 6,400 KB
最終ジャッジ日時 2026-05-16 01:01:05
合計ジャッジ時間 4,027 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 11
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

fun readInt () =
    valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn)


val () =
    let
        val n = readInt ()
        val gd_s = List.tabulate (n, fn _ => (readInt (), readInt ()))

        val (_, (maxIndex, maxExp)) = List.foldl (fn ((g, d), (i, (accI, accMax))) =>
                                                     if accMax < g - 30000 * d
                                                     then (i + 1, (i, g - 30000 * d))
                                                     else (i + 1, (accI, accMax)))
                                                 (1, (0, 0))
                                                 gd_s

        val maxString = String.concat (List.tabulate (6, fn _ => Int.toString maxIndex ^ "\n"))

        val ans = if 30000 * 100 <= maxExp * 6 then "YES\n" ^ maxString
                  else "NO\n"
    in
        print ans
    end
0