結果

問題 No.528 10^9と10^9+7と回文
ユーザー 6soukiti29
提出日時 2017-06-18 13:19:58
言語 Nim
(2.2.0)
結果
WA  
実行時間 -
コード長 1,285 bytes
コンパイル時間 3,011 ms
コンパイル使用メモリ 66,268 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-06-30 01:26:35
合計ジャッジ時間 3,840 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 8 WA * 3 RE * 17
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 8) Warning: imported and not used: 'math' [UnusedImport]
/home/judge/data/code/Main.nim(1, 13) Warning: imported and not used: 'sequtils' [UnusedImport]
/home/judge/data/code/Main.nim(1, 22) Warning: imported and not used: 'strutils' [UnusedImport]
/home/judge/data/code/Main.nim(1, 31) Warning: imported and not used: 'unicode' [UnusedImport]

ソースコード

diff # 

import math,sequtils,strutils,unicode
proc powInt(n : int64, m : int64, k = 1_000_000_007):int64 =
    if m == 0:
        return 1
    elif m == 1:
        return (n mod k)
    if (m mod 2) == 0:
        return powInt((n*n) mod k,m div 2, k) mod k
    else:
        return (powInt((n*n) mod k,m div 2, k) * n) mod k
proc CToI(c : char):int =
    return( int(c) - int('0'))


var
    mod_Bill = (10.powInt(9)).int
    mod_Bill_7 = (10.powInt(9) + 7).int
    N : string
    p : int64
let N1 = stdin.readline
proc kaibun(N : string):int64 =
    var x = N.len
    var
        flag = 0
        X : seq[int64]
        i = 2
        a : int64
    X = @[9.int64,9.int64]
    while x > i:
        if (i mod 2) == 0:
            X.add(X[i - 1] * 10)
        else:
            X.add(X[i - 1])
        i += 1
    a = 0
    for i in X[0..len(X)-2]:
        a += i
    for j in 1..(x div 2):
        if j == 1:
            a = a + (N[j - 1].CToI - 1) * X[x - 2*j + 1] div 9
        else:
            a = a + N[j - 1].CToI * X[x - 2*j + 1] div 9
    for i in 0..<len(X) div 2:
        if N[i] > N[^(i + 1)]:
            break
        if i == len(N) div 2 - 1:
            a += 1
    if (x mod 2) == 1:
        a += N[x div 2].CToI
    return a
p = kaibun(N1)
echo p mod mod_Bill
echo p mod mod_Bill_7
0