結果
問題 | No.308 素数は通れません |
ユーザー |
![]() |
提出日時 | 2015-12-11 03:33:56 |
言語 | Ruby (3.4.1) |
結果 |
AC
|
実行時間 | 84 ms / 1,000 ms |
コード長 | 1,388 bytes |
コンパイル時間 | 147 ms |
コンパイル使用メモリ | 7,424 KB |
実行使用メモリ | 12,288 KB |
最終ジャッジ日時 | 2024-11-27 18:44:11 |
合計ジャッジ時間 | 10,376 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 107 |
コンパイルメッセージ
Syntax OK
ソースコード
class Integerdef prime?n = self.abs()return true if n == 2return false if n == 1 || n & 1 == 0d = n-1d >>= 1 while d & 1 == 020.times doa = rand(n-2) + 1t = dy = ModMath.pow(a,t,n)while t != n-1 && y != 1 && y != n-1y = (y * y) % nt <<= 1endreturn false if y != n-1 && t & 1 == 0endreturn trueendendmodule ModMathdef ModMath.pow(base, power, mod)result = 1while power > 0result = (result * base) % mod if power & 1 == 1base = (base * base) % modpower >>= 1;endresultendend$dx = [1, 0, -1, 0]$dy = [0, 1, 0, -1]def find(cx, cy, w)t = cy * w + cx4.times do |i|x = cx + $dx[i]y = cy + $dy[i]t = y * w + xnext if x < 0 || x >= w || y < 0 || t + 1 > $n || $b[t]return true if t + 1 == $n$b[t] = truecheck = find(x, y, w)$b[t] = falsereturn true if checkendreturn falseend$n = gets.to_iif $n <= 25$b = Array.new($n)25.times do |j|$b[j] = (j + 1).prime?end25.times do |w|w += 1if find(0, 0, w)puts wexitendendendif $n % 8 == 1 && ($n - 8).prime?puts 14elseputs 8end