結果
問題 | No.312 置換処理 |
ユーザー |
![]() |
提出日時 | 2017-05-01 12:53:32 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 683 ms / 2,000 ms |
コード長 | 630 bytes |
コンパイル時間 | 8,153 ms |
コンパイル使用メモリ | 170,368 KB |
実行使用メモリ | 14,720 KB |
最終ジャッジ日時 | 2024-11-15 12:16:31 |
合計ジャッジ時間 | 12,859 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 45 |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) Main.hs:17:32: warning: [GHC-63394] [-Wx-partial] In the use of ‘head’ (imported from Data.List, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 17 | rmin n = if length twos > 1 && head (rest++[n]) /= 3 then 4 else head (rest++[n]) | ^^^^ Main.hs:17:66: warning: [GHC-63394] [-Wx-partial] In the use of ‘head’ (imported from Data.List, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 17 | rmin n = if length twos > 1 && head (rest++[n]) /= 3 then 4 else head (rest++[n]) | ^^^^ [2 of 2] Linking a.out
ソースコード
importData.Listprimes = 2:3:[x | i<-[1..], j<-[-1,1], let x = 6*i+j, isPrime x]where isPrime n = null [i | i<-takeWhile (\x -> x^2 <= n) primes, mod n i == 0]factorization::Integer->Integerfactorization n = unfoldr fact (n, primes)whereq = (floor . sqrt . fromIntegral) nfact (n', pps@(p:ps))| n' == 1 = Nothing| p > q = Just (n',(1,pps))| otherwise = let (d,m) = divMod n' p in if m==0 then Just (p,(d,pps)) else fact (n',ps)main = readLn >>= print . rminrmin n = if length twos > 1 && head (rest++[n]) /= 3 then 4 else head (rest++[n])where (twos,rest) = partition (==2) (factorization n)