結果
問題 | No.786 京都大学の過去問 |
ユーザー | かりあげクン |
提出日時 | 2020-09-28 01:44:34 |
言語 | Haskell (9.8.2) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 614 bytes |
コンパイル時間 | 7,638 ms |
コンパイル使用メモリ | 175,872 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-06-30 17:49:16 |
合計ジャッジ時間 | 4,868 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
5,248 KB |
testcase_01 | AC | 1 ms
5,376 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 |
コンパイルメッセージ
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
ソースコード
-------------------------------------------------------------------------------- -- https://blog.miz-ar.info/2019/01/fast-fibonacci/ -------------------------------------------------------------------------------- fastDoubling :: Int -> (Integer, Integer) fastDoubling 0 = (0, 1) fastDoubling 1 = (1, 1) fastDoubling i = let (a, b) = fastDoubling (i `quot` 2) in if even i then (a * (2 * b - a), a * a + b * b) else (a * a + b * b, b * (2 * a + b)) fib :: Int -> Integer fib i = case fastDoubling i of (a, _) -> a main :: IO () main = do n <- readLn :: IO Int print $ fib (n + 1)