結果

問題 No.260 世界のなんとか3
ユーザー pekempeypekempey
提出日時 2017-01-27 22:11:00
言語 F#
(F# 4.0)
結果
AC  
実行時間 275 ms / 2,000 ms
コード長 1,379 bytes
コンパイル時間 13,396 ms
コンパイル使用メモリ 186,748 KB
実行使用メモリ 40,396 KB
最終ジャッジ日時 2024-06-06 04:34:24
合計ジャッジ時間 14,900 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 45 ms
29,312 KB
testcase_01 AC 46 ms
29,440 KB
testcase_02 AC 47 ms
30,336 KB
testcase_03 AC 187 ms
40,388 KB
testcase_04 AC 191 ms
40,388 KB
testcase_05 AC 111 ms
33,840 KB
testcase_06 AC 90 ms
32,640 KB
testcase_07 AC 180 ms
38,860 KB
testcase_08 AC 208 ms
39,084 KB
testcase_09 AC 117 ms
34,420 KB
testcase_10 AC 163 ms
38,072 KB
testcase_11 AC 193 ms
39,636 KB
testcase_12 AC 167 ms
37,408 KB
testcase_13 AC 70 ms
31,476 KB
testcase_14 AC 187 ms
39,004 KB
testcase_15 AC 76 ms
32,128 KB
testcase_16 AC 156 ms
37,404 KB
testcase_17 AC 126 ms
35,460 KB
testcase_18 AC 115 ms
34,944 KB
testcase_19 AC 194 ms
38,956 KB
testcase_20 AC 139 ms
35,704 KB
testcase_21 AC 142 ms
36,276 KB
testcase_22 AC 155 ms
37,696 KB
testcase_23 AC 58 ms
30,976 KB
testcase_24 AC 166 ms
38,444 KB
testcase_25 AC 275 ms
40,364 KB
testcase_26 AC 166 ms
40,396 KB
testcase_27 AC 45 ms
29,568 KB
testcase_28 AC 164 ms
40,260 KB
testcase_29 AC 187 ms
40,388 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (308 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff # 

let A, B = System.Console.ReadLine().Split() |> fun a -> a.[0], a.[1]
let LA = String.length A
let LB = String.length B
let L = max LA LB

let a = ((String.replicate (L - LA) "0") + A).ToCharArray()
let b = ((String.replicate (L - LB) "0") + B).ToCharArray()

// pos, (less, more, has3), mod24
let dp = Array3D.zeroCreate (L + 1) 8 24
dp.[0, 0, 0] <- 1

let Pack less more has3 = (less) ||| (more <<< 1) ||| (has3 <<< 2)
let Unpack v = (v &&& 1, v >>> 1 &&& 1, v >>> 2 &&& 1)
let digit c = int c - int '0'

let mo = 1000000007

for i = 0 to L - 1 do
    for j = 0 to 7 do
        let less, more, has3 = Unpack(j)
        for k = 0 to 23 do
            let low = if more = 0 then digit a.[i] else 0
            let high = if less = 0 then digit b.[i] else 9
            for d = low to high do
                let less1 = if less = 1 || d < high then 1 else 0
                let more1 = if more = 1 || d > low then 1 else 0
                let has31 = if has3 = 1 || d = 3 then 1 else 0
                let jj = Pack less1 more1 has31
                let kk = (10 * k + d) % 24
                dp.[i + 1, jj, kk] <- (dp.[i + 1, jj, kk] + dp.[i, j, k]) % mo

let mutable ans = 0

for j = 0 to 7 do
    let _, _, has3 = Unpack(j)
    for k = 0 to 23 do
        if k % 8 <> 0 && (k % 3 = 0 || has3 = 1) then
            ans <- (ans + dp.[L, j, k]) % mo

System.Console.WriteLine(ans)
0