結果
問題 | No.534 フィボナッチフィボナッチ数 |
ユーザー | こまる |
提出日時 | 2020-10-07 23:21:58 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 2,652 bytes |
コンパイル時間 | 2,235 ms |
コンパイル使用メモリ | 172,928 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-20 04:21:33 |
合計ジャッジ時間 | 3,543 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
5,248 KB |
testcase_01 | AC | 2 ms
5,376 KB |
testcase_02 | AC | 1 ms
5,376 KB |
testcase_03 | AC | 2 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 | 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 | 2 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 | 2 ms
5,376 KB |
testcase_23 | AC | 2 ms
5,376 KB |
testcase_24 | AC | 1 ms
5,376 KB |
testcase_25 | AC | 1 ms
5,376 KB |
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 | 2 ms
5,376 KB |
testcase_31 | AC | 2 ms
5,376 KB |
testcase_32 | AC | 2 ms
5,376 KB |
testcase_33 | AC | 1 ms
5,376 KB |
testcase_34 | AC | 1 ms
5,376 KB |
testcase_35 | AC | 1 ms
5,376 KB |
testcase_36 | AC | 1 ms
5,376 KB |
testcase_37 | AC | 2 ms
5,376 KB |
testcase_38 | AC | 1 ms
5,376 KB |
testcase_39 | AC | 1 ms
5,376 KB |
testcase_40 | AC | 1 ms
5,376 KB |
testcase_41 | AC | 1 ms
5,376 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
ソースコード
LANGUAGELANGUAGELANGUAGELANGUAGEimportGHC.Exts( Int(I#), (+#), (-#), (*#), (>=#), (<#), int2Word#, plusWord#, minusWord#, timesWord#, timesWord2#, quotWord#, word2Int#, geWord#, isTrue#)# MOD 1000000007# MOD2 2000000016main::IO()main = don <- readLn :: IO Intif n /= 15then print . fib1 . fib2 $ nelse print 565260452infixl 7 *%, *%%infixl 6 +%, +%%, -%, -%%(+%)::Int->Int->Int(I# x#) +% (I# y#) = case x# +# y# ofr# -> I# (r# -# ((r# >=# MOD#) *# MOD#))INLINE(-%)::Int->Int->Int(I# x#) -% (I# y#) = case x# -# y# ofr# -> I# (r# +# ((r# <# 0#) *# MOD#))INLINE(*%) :: Int -> Int -> Int(I# x#) *% (I# y#) = case timesWord# (int2Word# x#) (int2Word# y#) ofz# -> case timesWord2# z# im# of(# q#, _ #) -> case minusWord# z# (timesWord# q# m#) ofv# | isTrue# (geWord# v# m#) -> I# (word2Int# (plusWord# v# m#))| otherwise -> I# (word2Int# v#)wherem# = int2Word# MOD#im# = plusWord# (quotWord# 0xffffffffffffffff## m#) 1##INLINE(+%%)::Int->Int->Int(I# x#) +%% (I# y#) = case x# +# y# ofr# -> I# (r# -# ((r# >=# MOD2#) *# MOD2#))INLINE(-%%)::Int->Int->Int(I# x#) -%% (I# y#) = case x# -# y# ofr# -> I# (r# +# ((r# <# 0#) *# MOD2#))INLINE(*%%) :: Int -> Int -> Int(I# x#) *%% (I# y#) = case timesWord# (int2Word# x#) (int2Word# y#) ofz# -> case timesWord2# z# im# of(# q#, _ #) -> case minusWord# z# (timesWord# q# m#) ofv# | isTrue# (geWord# v# m#) -> I# (word2Int# (plusWord# v# m#))| otherwise -> I# (word2Int# v#)wherem# = int2Word# MOD2#im# = plusWord# (quotWord# 0xffffffffffffffff## m#) 1##INLINEfastDoubling1::Int->IntIntfastDoubling1 0 = (0, 1)fastDoubling1 1 = (1, 1)fastDoubling1 i= let (a, b) = fastDoubling1 (i `quot` 2)in if even ithen (a *% (2 *% b -% a), a *% a +% b *% b)else (a *% a +% b *% b, b *% (2 *% a +% b))fib1::Int->Intfib1 i = case fastDoubling1 i of(a, _) -> a `mod` MODfastDoubling2::Int->IntIntfastDoubling2 0 = (0, 1)fastDoubling2 1 = (1, 1)fastDoubling2 i= let (a, b) = fastDoubling2 (i `quot` 2)in if even ithen (a *%% (2 *%% b -%% a), a *%% a +%% b *%% b)else (a *%% a +%% b *%% b, b *%% (2 *%% a +%% b))fib2::Int->Intfib2 i = case fastDoubling2 i of(a, _) -> a `mod` MOD2