提出 #857219


ソースコード 拡げる

Copy
namespace DotNetLab.Fs.Console

open System
open System.Collections.Generic

[<AutoOpen>]
module Misc =
  type Long = int64
  let inline long x = int64 x

  let readLine f = Console.ReadLine().Split([|' '|]) |> Array.map f

module Program =
  [<EntryPoint>]
  let main _ =
    let [|n|] = readLine long
    let [|s|] = readLine long

    let f b =
      let rec loop n =
        if n < b
        then n
        else loop (n / b) + (n % b)
      in
        loop n

    let b =
      let rec loop lb ub =
        if ub - lb = 0L || (ub - lb = 1L && f ub <> s) then -1L
        elif ub - lb = 1L then ub
        else
          let b = (ub - lb) / 2L + lb
          if f b <= s
          then loop b ub
          else loop lb b
      in
        loop 2L Long.MaxValue

    printfn "%d" b

    // exit code
    0

提出情報

提出日時
問題 D - 桁和
ユーザ vain0
言語 F# (Mono 4.0)
得点 0
コード長 849 Byte
結果 WA
実行時間 70 ms
メモリ 3668 KB

コンパイルエラー

/imojudge/Main.fs(17,9): warning FS0025: Incomplete pattern matches on this expression. For example, the value '[|_; _|]' may indicate a case not covered by the pattern(s).

/imojudge/Main.fs(16,9): warning FS0025: Incomplete pattern matches on this expression. For example, the value '[|_; _|]' may indicate a case not covered by the pattern(s).

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 0 / 500
結果
AC × 2
WA × 3
AC × 10
WA × 37
セット名 テストケース
Sample subtask1_87654_30.txt, subtask1_87654_138.txt, subtask1_87654_45678.txt, subtask1_31415926535_1.txt, subtask1_1_31415926535.txt
All subtask1_100000000000_1.txt, subtask1_100000000000_100000000000.txt, subtask1_100000000000_2.txt, subtask1_100000000000_3.txt, subtask1_100000000000_50000000000.txt, subtask1_100000000000_50000000001.txt, subtask1_100000000000_99999999999.txt, subtask1_16983563041_1.txt, subtask1_1_1.txt, subtask1_1_2.txt, subtask1_1_31415926535.txt, subtask1_239484768_194586924.txt, subtask1_2_1.txt, subtask1_2_2.txt, subtask1_31415926535_1.txt, subtask1_49234683534_2461734011.txt, subtask1_4_1.txt, subtask1_58640129658_232122496.txt, subtask1_68719476735_35.txt, subtask1_68719476735_36.txt, subtask1_68719476735_37.txt, subtask1_68719476736_1.txt, subtask1_68719476736_2.txt, subtask1_72850192441_16865701.txt, subtask1_79285169301_27.txt, subtask1_82914867733_1676425945.txt, subtask1_8594813796_75700.txt, subtask1_87654_12345.txt, subtask1_87654_138.txt, subtask1_87654_30.txt, subtask1_87654_4294967308.txt, subtask1_87654_45678.txt, subtask1_97822032312_49157112.txt, subtask1_98750604051_977728851.txt, subtask1_99999515529_1.txt, subtask1_99999515529_316226.txt, subtask1_99999515529_316227.txt, subtask1_99999515529_316228.txt, subtask1_99999515529_49999757765.txt, subtask1_99999515529_49999757766.txt, subtask1_99999515530_2.txt, subtask1_99999999977_1.txt, subtask1_99999999977_2.txt, subtask1_99999999977_49999999989.txt, subtask1_99999999977_49999999990.txt, subtask1_99999999999_1.txt, subtask1_99999999999_100000000000.txt
ケース名 結果 実行時間 メモリ
subtask1_100000000000_1.txt WA 68 ms 3668 KB
subtask1_100000000000_100000000000.txt WA 66 ms 3668 KB
subtask1_100000000000_2.txt WA 66 ms 3668 KB
subtask1_100000000000_3.txt WA 66 ms 3668 KB
subtask1_100000000000_50000000000.txt WA 66 ms 3668 KB
subtask1_100000000000_50000000001.txt AC 66 ms 3668 KB
subtask1_100000000000_99999999999.txt AC 66 ms 3668 KB
subtask1_16983563041_1.txt WA 66 ms 3668 KB
subtask1_1_1.txt WA 66 ms 3668 KB
subtask1_1_2.txt AC 66 ms 3668 KB
subtask1_1_31415926535.txt AC 66 ms 3668 KB
subtask1_239484768_194586924.txt AC 66 ms 3668 KB
subtask1_2_1.txt WA 67 ms 3668 KB
subtask1_2_2.txt WA 66 ms 3668 KB
subtask1_31415926535_1.txt WA 66 ms 3668 KB
subtask1_49234683534_2461734011.txt WA 67 ms 3668 KB
subtask1_4_1.txt WA 66 ms 3668 KB
subtask1_58640129658_232122496.txt WA 66 ms 3668 KB
subtask1_68719476735_35.txt WA 66 ms 3668 KB
subtask1_68719476735_36.txt WA 66 ms 3668 KB
subtask1_68719476735_37.txt WA 66 ms 3668 KB
subtask1_68719476736_1.txt WA 67 ms 3668 KB
subtask1_68719476736_2.txt WA 67 ms 3668 KB
subtask1_72850192441_16865701.txt WA 66 ms 3668 KB
subtask1_79285169301_27.txt WA 68 ms 3668 KB
subtask1_82914867733_1676425945.txt WA 67 ms 3668 KB
subtask1_8594813796_75700.txt WA 67 ms 3668 KB
subtask1_87654_12345.txt WA 66 ms 3668 KB
subtask1_87654_138.txt WA 66 ms 3668 KB
subtask1_87654_30.txt WA 66 ms 3668 KB
subtask1_87654_4294967308.txt AC 66 ms 3668 KB
subtask1_87654_45678.txt AC 66 ms 3668 KB
subtask1_97822032312_49157112.txt WA 66 ms 3668 KB
subtask1_98750604051_977728851.txt WA 66 ms 3668 KB
subtask1_99999515529_1.txt WA 66 ms 3668 KB
subtask1_99999515529_316226.txt WA 69 ms 3668 KB
subtask1_99999515529_316227.txt WA 69 ms 3668 KB
subtask1_99999515529_316228.txt WA 66 ms 3668 KB
subtask1_99999515529_49999757765.txt WA 67 ms 3668 KB
subtask1_99999515529_49999757766.txt AC 68 ms 3668 KB
subtask1_99999515530_2.txt WA 69 ms 3668 KB
subtask1_99999999977_1.txt WA 67 ms 3668 KB
subtask1_99999999977_2.txt WA 70 ms 3668 KB
subtask1_99999999977_49999999989.txt WA 68 ms 3668 KB
subtask1_99999999977_49999999990.txt AC 66 ms 3668 KB
subtask1_99999999999_1.txt WA 66 ms 3668 KB
subtask1_99999999999_100000000000.txt AC 67 ms 3668 KB