結果
| 問題 | No.125 悪の花弁 | 
| コンテスト | |
| ユーザー |  | 
| 提出日時 | 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
ソースコード
#!/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
            
            
            
        