結果

問題 No.125 悪の花弁
ユーザー ciel
提出日時 2016-06-05 22:13:29
言語 Ruby
(3.4.1)
結果
AC  
実行時間 542 ms / 5,000 ms
コード長 452 bytes
コンパイル時間 275 ms
コンパイル使用メモリ 7,296 KB
実行使用メモリ 18,560 KB
最終ジャッジ日時 2024-12-26 16:54:41
合計ジャッジ時間 3,869 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 6
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff #
プレゼンテーションモードにする

#!/usr/bin/ruby
def pow(x,y,m)
    z=1
    while y>0
        z=z*x%m if y%2>0
        x=x*x%m
        y/=2
    end
    z
end
M=10**9+7
K=gets.to_i
C=gets.split.map(&:to_i)
s=C.reduce(:+)
g=C.reduce(:gcd)
r=0
x=[]
y=[]
g.downto(1){|i|
    next if g%i!=0
    rem=s/i-1
    m=d=1
    K.times{|j|
        (C[j]/i-(j==0 ? 1 : 0)).times{|l|
            m=m*rem%M
            d=d*(l+1)%M
            rem-=1
        }
    }
    m*=pow(d,M-2,M)
    x.size.times{|j|
        m-=y[j] if x[j]%i==0
    }
    m%=M
    y<<m
    m=m*pow(C[0]/i,M-2,M)%M
    x<<i
    r=(r+m)%M
}
p r
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0