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

提出ソース

結果

問題	No.747 循環小数N桁目 Hard
ユーザー	Haar
提出日時	2018-11-11 22:27:12
言語	Haskell (9.8.2)
結果	WA
実行時間	-
コード長	485 bytes
コンパイル時間	15,331 ms
コンパイル使用メモリ	169,176 KB
実行使用メモリ	15,904 KB
最終ジャッジ日時	2023-08-21 16:21:40
合計ジャッジ時間	19,585 ms
ジャッジサーバーID （参考情報）	judge12 / judge14

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	3 ms 6,540 KB
testcase_01	AC	3 ms 6,588 KB
testcase_02	AC	3 ms 6,472 KB
testcase_03	AC	3 ms 6,540 KB
testcase_04	AC	2 ms 6,552 KB
testcase_05	AC	3 ms 6,472 KB
testcase_06	AC	3 ms 6,476 KB
testcase_07	AC	3 ms 6,492 KB
testcase_08	AC	2 ms 6,460 KB
testcase_09	AC	3 ms 6,544 KB
testcase_10	WA	-
testcase_11	AC	3 ms 6,504 KB
testcase_12	AC	2 ms 6,540 KB
testcase_13	AC	3 ms 6,524 KB
testcase_14	AC	3 ms 6,476 KB
testcase_15	AC	3 ms 6,540 KB
testcase_16	AC	3 ms 6,528 KB
testcase_17	AC	3 ms 6,588 KB
testcase_18	AC	2 ms 6,476 KB
testcase_19	AC	3 ms 6,464 KB
testcase_20	AC	3 ms 6,540 KB
testcase_21	AC	3 ms 6,492 KB
testcase_22	AC	3 ms 6,500 KB
testcase_23	AC	2 ms 6,488 KB
testcase_24	WA	-
testcase_25	AC	2 ms 6,536 KB
testcase_26	WA	-
testcase_27	AC	2 ms 6,592 KB
testcase_28	AC	2 ms 6,548 KB
testcase_29	AC	2 ms 6,584 KB
testcase_30	AC	3 ms 6,640 KB
testcase_31	AC	2 ms 6,612 KB
testcase_32	AC	2 ms 6,464 KB
testcase_33	AC	12 ms 11,792 KB
testcase_34	AC	4 ms 8,252 KB
testcase_35	AC	5 ms 9,136 KB
testcase_36	AC	6 ms 10,344 KB
testcase_37	AC	3 ms 7,520 KB
testcase_38	AC	5 ms 9,704 KB
testcase_39	AC	6 ms 9,496 KB
testcase_40	WA	-
testcase_41	AC	22 ms 12,412 KB
testcase_42	AC	12 ms 11,860 KB
testcase_43	AC	5 ms 9,288 KB
testcase_44	AC	12 ms 11,336 KB
testcase_45	AC	6 ms 10,416 KB
testcase_46	AC	12 ms 11,416 KB
testcase_47	AC	12 ms 11,752 KB
testcase_48	AC	7 ms 10,520 KB
testcase_49	AC	7 ms 10,652 KB
testcase_50	AC	4 ms 8,216 KB
testcase_51	AC	6 ms 9,960 KB
testcase_52	AC	4 ms 8,452 KB
testcase_53	AC	22 ms 14,540 KB
testcase_54	WA	-
testcase_55	AC	12 ms 13,212 KB
testcase_56	AC	12 ms 13,172 KB
testcase_57	AC	5 ms 9,020 KB
testcase_58	AC	23 ms 15,400 KB
testcase_59	AC	12 ms 11,296 KB
testcase_60	AC	12 ms 13,140 KB
testcase_61	AC	23 ms 12,164 KB
testcase_62	AC	12 ms 12,440 KB
testcase_63	AC	12 ms 11,996 KB
testcase_64	AC	7 ms 10,668 KB
testcase_65	AC	3 ms 7,184 KB
testcase_66	AC	8 ms 11,176 KB
testcase_67	AC	7 ms 10,880 KB
testcase_68	AC	6 ms 10,460 KB
testcase_69	AC	12 ms 11,668 KB
testcase_70	WA	-
testcase_71	AC	5 ms 8,572 KB
testcase_72	AC	4 ms 8,492 KB
testcase_73	AC	9 ms 11,652 KB
testcase_74	AC	12 ms 11,528 KB
testcase_75	AC	5 ms 9,508 KB
testcase_76	AC	6 ms 9,640 KB
testcase_77	AC	6 ms 9,852 KB
testcase_78	AC	6 ms 10,436 KB
testcase_79	AC	13 ms 11,264 KB
testcase_80	AC	12 ms 11,680 KB
testcase_81	AC	5 ms 8,620 KB
testcase_82	AC	4 ms 8,132 KB
testcase_83	AC	5 ms 9,008 KB
testcase_84	AC	23 ms 12,372 KB
testcase_85	AC	12 ms 12,036 KB
testcase_86	AC	6 ms 9,732 KB
testcase_87	AC	23 ms 12,388 KB
testcase_88	AC	5 ms 9,460 KB
testcase_89	AC	4 ms 8,544 KB
testcase_90	AC	12 ms 11,348 KB
testcase_91	AC	6 ms 10,032 KB
testcase_92	AC	7 ms 10,884 KB
testcase_93	AC	13 ms 11,832 KB
testcase_94	AC	12 ms 12,960 KB
testcase_95	AC	22 ms 14,188 KB
testcase_96	AC	23 ms 13,912 KB
testcase_97	AC	23 ms 14,528 KB
testcase_98	WA	-
testcase_99	AC	22 ms 13,852 KB
testcase_100	AC	22 ms 13,060 KB
testcase_101	AC	5 ms 9,248 KB
testcase_102	AC	12 ms 11,604 KB
testcase_103	AC	22 ms 12,980 KB
testcase_104	AC	23 ms 12,984 KB
testcase_105	AC	22 ms 13,508 KB
testcase_106	AC	22 ms 13,084 KB
testcase_107	AC	22 ms 12,976 KB
testcase_108	AC	22 ms 13,536 KB
testcase_109	AC	23 ms 12,928 KB
testcase_110	AC	22 ms 13,532 KB
testcase_111	AC	22 ms 13,448 KB
testcase_112	AC	23 ms 13,080 KB
testcase_113	AC	22 ms 12,924 KB
testcase_114	AC	23 ms 13,040 KB
testcase_115	AC	23 ms 12,932 KB
testcase_116	AC	23 ms 13,552 KB
testcase_117	AC	22 ms 13,036 KB
testcase_118	WA	-
testcase_119	AC	22 ms 13,004 KB
testcase_120	AC	22 ms 12,924 KB
testcase_121	AC	22 ms 13,464 KB
testcase_122	WA	-
testcase_123	AC	23 ms 13,020 KB

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

コンパイルメッセージ

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

ソースコード

raw source code

import Data.Char
import Debug.Trace

main = do
  n <- getLine
  k <- getLine
  let
    r = [2,8,5,7,1,4]
    n' = modBigInteger n 6

    a = case n' of
           0 -> 6
           1 -> 1
           2 -> [4,2] !! (modBigInteger k 2)
           3 -> 3
           4 -> 4
           5 -> [5,1] !! (modBigInteger k 2)

  print $ r !! ((a+5)`mod`6)


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

yukicoder

結果

テストケース

コンパイルメッセージ

ソースコード