結果
問題 | No.1177 余りは? |
ユーザー |
|
提出日時 | 2020-11-14 12:27:19 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 632 bytes |
コンパイル時間 | 219 ms |
コンパイル使用メモリ | 149,632 KB |
最終ジャッジ日時 | 2024-07-22 22:48:52 |
合計ジャッジ時間 | 575 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
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:1:1: error: [GHC-87110] Could not load module ‘GHC.Integer.GMP.Internals’. It is a member of the hidden package ‘integer-gmp-1.1’. Use -v to see a list of the files searched for. | 1 | import qualified GHC.Integer.GMP.Internals as GMP | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
importqualifiedGHC.Integer.GMP.InternalsasGMPmodulus::Intmodulus = 1000000007INLINEfi::Int->Integerfi = fromIntegralINLINEfI::Integer->IntfI = fromIntegerINLINEpowModInt::Int->Int->IntpowModInt a b = fI $ GMP.powModInteger (fi a) (fi b) (fi modulus)INLINEmain::IO()main = do[p, k] <- map (read :: String -> Int) . words <$> getLinelett1 = powModInt 10 (p - 1)t2 = (t1 + modulus - 1) `mod` modulust3 = t2 * powModInt p (modulus - 2) `mod` modulusif k == 0then print $ (t3 + 1) `mod` moduluselse print t3