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

提出ソース

結果

問題	No.747 循環小数N桁目 Hard
ユーザー	Haar
提出日時	2018-11-11 22:29:07
言語	Haskell (9.8.2)
結果	AC
実行時間	19 ms / 2,000 ms
コード長	517 bytes
コンパイル時間	13,008 ms
コンパイル使用メモリ	171,776 KB
実行使用メモリ	13,440 KB
最終ジャッジ日時	2024-05-08 21:57:54
合計ジャッジ時間	8,773 ms
ジャッジサーバーID （参考情報）	judge4 / judge5

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	1 ms 5,248 KB
testcase_01	AC	2 ms 5,248 KB
testcase_02	AC	1 ms 5,376 KB
testcase_03	AC	1 ms 5,376 KB
testcase_04	AC	1 ms 5,376 KB
testcase_05	AC	2 ms 5,376 KB
testcase_06	AC	1 ms 5,376 KB
testcase_07	AC	1 ms 5,376 KB
testcase_08	AC	1 ms 5,376 KB
testcase_09	AC	1 ms 5,376 KB
testcase_10	AC	1 ms 5,376 KB
testcase_11	AC	1 ms 5,376 KB
testcase_12	AC	1 ms 5,376 KB
testcase_13	AC	1 ms 5,376 KB
testcase_14	AC	1 ms 5,376 KB
testcase_15	AC	1 ms 5,376 KB
testcase_16	AC	1 ms 5,376 KB
testcase_17	AC	1 ms 5,376 KB
testcase_18	AC	1 ms 5,376 KB
testcase_19	AC	2 ms 5,376 KB
testcase_20	AC	1 ms 5,376 KB
testcase_21	AC	1 ms 5,376 KB
testcase_22	AC	1 ms 5,376 KB
testcase_23	AC	1 ms 5,376 KB
testcase_24	AC	1 ms 5,376 KB
testcase_25	AC	1 ms 5,376 KB
testcase_26	AC	1 ms 5,376 KB
testcase_27	AC	2 ms 5,376 KB
testcase_28	AC	1 ms 5,376 KB
testcase_29	AC	1 ms 5,376 KB
testcase_30	AC	2 ms 5,376 KB
testcase_31	AC	1 ms 5,376 KB
testcase_32	AC	1 ms 5,376 KB
testcase_33	AC	6 ms 9,088 KB
testcase_34	AC	3 ms 5,632 KB
testcase_35	AC	3 ms 6,528 KB
testcase_36	AC	5 ms 7,936 KB
testcase_37	AC	2 ms 5,376 KB
testcase_38	AC	4 ms 6,912 KB
testcase_39	AC	4 ms 6,784 KB
testcase_40	AC	9 ms 9,344 KB
testcase_41	AC	8 ms 9,728 KB
testcase_42	AC	7 ms 9,088 KB
testcase_43	AC	4 ms 6,656 KB
testcase_44	AC	6 ms 8,832 KB
testcase_45	AC	4 ms 7,808 KB
testcase_46	AC	7 ms 8,704 KB
testcase_47	AC	6 ms 9,088 KB
testcase_48	AC	5 ms 7,680 KB
testcase_49	AC	6 ms 8,448 KB
testcase_50	AC	2 ms 5,504 KB
testcase_51	AC	4 ms 7,168 KB
testcase_52	AC	3 ms 5,632 KB
testcase_53	AC	14 ms 13,056 KB
testcase_54	AC	12 ms 11,136 KB
testcase_55	AC	9 ms 10,368 KB
testcase_56	AC	8 ms 10,368 KB
testcase_57	AC	3 ms 6,400 KB
testcase_58	AC	16 ms 13,440 KB
testcase_59	AC	5 ms 8,576 KB
testcase_60	AC	9 ms 10,368 KB
testcase_61	AC	9 ms 9,472 KB
testcase_62	AC	7 ms 9,856 KB
testcase_63	AC	7 ms 9,344 KB
testcase_64	AC	5 ms 8,192 KB
testcase_65	AC	2 ms 5,376 KB
testcase_66	AC	6 ms 8,448 KB
testcase_67	AC	5 ms 8,320 KB
testcase_68	AC	4 ms 7,936 KB
testcase_69	AC	7 ms 9,088 KB
testcase_70	AC	4 ms 6,656 KB
testcase_71	AC	3 ms 5,760 KB
testcase_72	AC	3 ms 5,888 KB
testcase_73	AC	7 ms 8,960 KB
testcase_74	AC	7 ms 8,832 KB
testcase_75	AC	3 ms 6,656 KB
testcase_76	AC	4 ms 7,040 KB
testcase_77	AC	4 ms 7,168 KB
testcase_78	AC	5 ms 7,936 KB
testcase_79	AC	6 ms 8,448 KB
testcase_80	AC	5 ms 9,088 KB
testcase_81	AC	3 ms 5,888 KB
testcase_82	AC	2 ms 5,376 KB
testcase_83	AC	3 ms 6,272 KB
testcase_84	AC	8 ms 9,984 KB
testcase_85	AC	6 ms 9,472 KB
testcase_86	AC	3 ms 6,784 KB
testcase_87	AC	9 ms 9,600 KB
testcase_88	AC	4 ms 6,784 KB
testcase_89	AC	2 ms 5,760 KB
testcase_90	AC	6 ms 8,832 KB
testcase_91	AC	4 ms 7,424 KB
testcase_92	AC	5 ms 8,192 KB
testcase_93	AC	8 ms 9,088 KB
testcase_94	AC	8 ms 10,112 KB
testcase_95	AC	13 ms 11,520 KB
testcase_96	AC	12 ms 11,136 KB
testcase_97	AC	13 ms 11,776 KB
testcase_98	AC	19 ms 13,312 KB
testcase_99	AC	12 ms 12,032 KB
testcase_100	AC	9 ms 10,624 KB
testcase_101	AC	4 ms 6,656 KB
testcase_102	AC	7 ms 9,088 KB
testcase_103	AC	10 ms 10,368 KB
testcase_104	AC	8 ms 10,368 KB
testcase_105	AC	11 ms 10,624 KB
testcase_106	AC	8 ms 10,240 KB
testcase_107	AC	8 ms 10,240 KB
testcase_108	AC	10 ms 10,880 KB
testcase_109	AC	9 ms 10,112 KB
testcase_110	AC	12 ms 10,752 KB
testcase_111	AC	12 ms 10,752 KB
testcase_112	AC	9 ms 10,368 KB
testcase_113	AC	9 ms 10,240 KB
testcase_114	AC	8 ms 10,368 KB
testcase_115	AC	8 ms 10,240 KB
testcase_116	AC	11 ms 10,880 KB
testcase_117	AC	9 ms 10,240 KB
testcase_118	AC	11 ms 10,880 KB
testcase_119	AC	9 ms 10,240 KB
testcase_120	AC	8 ms 10,240 KB
testcase_121	AC	11 ms 10,880 KB
testcase_122	AC	10 ms 10,752 KB
testcase_123	AC	9 ms 10,368 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
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 -> [1,5] !! (modBigInteger k 2)

  trace (show a) $ return ()
  
  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

結果

テストケース

コンパイルメッセージ

ソースコード