#297600 (Haskell) No.747 循環小数N桁目 Hard

提出ソース

結果

問題	No.747 循環小数N桁目 Hard
ユーザー	Haar
提出日時	2018-11-11 22:02:31
言語	Haskell (9.8.2)
結果	WA
実行時間	-
コード長	514 bytes
コンパイル時間	8,445 ms
コンパイル使用メモリ	171,008 KB
実行使用メモリ	13,824 KB
最終ジャッジ日時	2024-05-08 18:09:15
合計ジャッジ時間	12,842 ms
ジャッジサーバーID （参考情報）	judge2 / judge3

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	1 ms 5,248 KB
testcase_01	AC	1 ms 5,248 KB
testcase_02	AC	2 ms 5,376 KB
testcase_03	AC	1 ms 5,376 KB
testcase_04	AC	1 ms 5,376 KB
testcase_05	AC	1 ms 5,376 KB
testcase_06	AC	1 ms 5,376 KB
testcase_07	AC	2 ms 5,376 KB
testcase_08	AC	1 ms 5,376 KB
testcase_09	WA	-
testcase_10	AC	2 ms 5,376 KB
testcase_11	AC	2 ms 5,376 KB
testcase_12	AC	2 ms 5,376 KB
testcase_13	AC	1 ms 5,376 KB
testcase_14	WA	-
testcase_15	AC	2 ms 5,376 KB
testcase_16	AC	2 ms 5,376 KB
testcase_17	WA	-
testcase_18	WA	-
testcase_19	AC	2 ms 5,376 KB
testcase_20	AC	1 ms 5,376 KB
testcase_21	WA	-
testcase_22	WA	-
testcase_23	AC	2 ms 5,376 KB
testcase_24	AC	1 ms 5,376 KB
testcase_25	WA	-
testcase_26	AC	2 ms 5,376 KB
testcase_27	AC	1 ms 5,376 KB
testcase_28	AC	2 ms 5,376 KB
testcase_29	AC	2 ms 5,376 KB
testcase_30	AC	1 ms 5,376 KB
testcase_31	AC	2 ms 5,376 KB
testcase_32	AC	2 ms 5,376 KB
testcase_33	AC	8 ms 9,088 KB
testcase_34	AC	5 ms 6,400 KB
testcase_35	AC	3 ms 5,376 KB
testcase_36	AC	6 ms 7,680 KB
testcase_37	WA	-
testcase_38	WA	-
testcase_39	WA	-
testcase_40	AC	13 ms 9,472 KB
testcase_41	AC	13 ms 9,600 KB
testcase_42	AC	10 ms 9,088 KB
testcase_43	AC	5 ms 7,552 KB
testcase_44	AC	8 ms 8,704 KB
testcase_45	AC	9 ms 8,704 KB
testcase_46	AC	8 ms 8,576 KB
testcase_47	AC	9 ms 8,832 KB
testcase_48	AC	6 ms 7,680 KB
testcase_49	AC	7 ms 8,320 KB
testcase_50	AC	6 ms 7,296 KB
testcase_51	WA	-
testcase_52	WA	-
testcase_53	AC	23 ms 12,928 KB
testcase_54	AC	16 ms 11,008 KB
testcase_55	AC	19 ms 12,416 KB
testcase_56	WA	-
testcase_57	AC	5 ms 7,040 KB
testcase_58	AC	25 ms 13,824 KB
testcase_59	AC	8 ms 8,320 KB
testcase_60	AC	17 ms 11,648 KB
testcase_61	AC	11 ms 9,344 KB
testcase_62	AC	13 ms 9,856 KB
testcase_63	AC	11 ms 9,216 KB
testcase_64	WA	-
testcase_65	AC	3 ms 5,376 KB
testcase_66	AC	8 ms 8,448 KB
testcase_67	AC	7 ms 8,192 KB
testcase_68	WA	-
testcase_69	AC	8 ms 8,832 KB
testcase_70	AC	5 ms 6,528 KB
testcase_71	AC	4 ms 6,272 KB
testcase_72	AC	6 ms 7,936 KB
testcase_73	AC	9 ms 8,704 KB
testcase_74	AC	9 ms 8,576 KB
testcase_75	AC	5 ms 7,168 KB
testcase_76	AC	6 ms 8,192 KB
testcase_77	AC	6 ms 7,936 KB
testcase_78	AC	9 ms 8,704 KB
testcase_79	AC	8 ms 8,320 KB
testcase_80	AC	9 ms 8,832 KB
testcase_81	AC	5 ms 6,784 KB
testcase_82	AC	6 ms 7,296 KB
testcase_83	AC	3 ms 6,016 KB
testcase_84	AC	14 ms 9,600 KB
testcase_85	AC	12 ms 9,088 KB
testcase_86	AC	7 ms 8,320 KB
testcase_87	WA	-
testcase_88	AC	6 ms 7,936 KB
testcase_89	AC	6 ms 8,064 KB
testcase_90	WA	-
testcase_91	AC	9 ms 8,960 KB
testcase_92	AC	7 ms 8,064 KB
testcase_93	AC	11 ms 9,216 KB
testcase_94	AC	15 ms 10,496 KB
testcase_95	AC	16 ms 11,264 KB
testcase_96	AC	16 ms 10,752 KB
testcase_97	AC	16 ms 11,520 KB
testcase_98	AC	22 ms 13,824 KB
testcase_99	WA	-
testcase_100	AC	19 ms 11,776 KB
testcase_101	WA	-
testcase_102	AC	9 ms 8,832 KB
testcase_103	AC	16 ms 10,624 KB
testcase_104	AC	17 ms 10,624 KB
testcase_105	AC	17 ms 10,624 KB
testcase_106	AC	16 ms 10,752 KB
testcase_107	AC	16 ms 10,496 KB
testcase_108	AC	16 ms 10,624 KB
testcase_109	AC	16 ms 10,752 KB
testcase_110	AC	17 ms 10,752 KB
testcase_111	AC	17 ms 10,752 KB
testcase_112	AC	16 ms 10,624 KB
testcase_113	WA	-
testcase_114	AC	17 ms 10,624 KB
testcase_115	AC	17 ms 10,624 KB
testcase_116	AC	17 ms 10,624 KB
testcase_117	AC	16 ms 10,624 KB
testcase_118	AC	17 ms 10,624 KB
testcase_119	AC	17 ms 10,496 KB
testcase_120	AC	16 ms 10,496 KB
testcase_121	AC	16 ms 10,752 KB
testcase_122	AC	15 ms 10,752 KB
testcase_123	AC	16 ms 10,624 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

raw source code

import Data.Char

main = do
  n <- getLine
  k <- getLine
  let r = [2,8,5,7,1,4]
  
  print $ r !! ((powerMod (modBigInteger n 6) (modBigInteger k 6) 6 + 5) `mod` 6)

modBigInteger :: String -> Int -> Int
modBigInteger [] _ = 0
modBigInteger xs m = foldl (\x y -> (x*10 + y) `mod` m) 0 (map digitToInt xs)

powerMod :: Integral a => a -> a -> a -> a
powerMod n 0 m = 1
powerMod n 1 m = n `mod` m
powerMod n p m = ((k * k) `mod` m * (if mod p 2 == 0 then 1 else n)) `mod` m
  where
    k = powerMod n (div p 2) m

yukicoder

結果

テストケース

コンパイルメッセージ

ソースコード