結果
問題 | No.146 試験監督(1) |
ユーザー | NaruY |
提出日時 | 2018-02-27 00:08:50 |
言語 | Haskell (9.8.2) |
結果 |
WA
|
実行時間 | - |
コード長 | 758 bytes |
コンパイル時間 | 8,054 ms |
コンパイル使用メモリ | 165,980 KB |
実行使用メモリ | 36,572 KB |
最終ジャッジ日時 | 2023-08-16 14:21:01 |
合計ジャッジ時間 | 9,187 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | WA | - |
testcase_01 | WA | - |
testcase_02 | WA | - |
コンパイルメッセージ
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
ソースコード
import Control.Monad import Control.Applicative import Data.List import qualified Data.Map as Map import Data.Array import qualified Data.ByteString.Char8 as BC import Data.Maybe import qualified Data.Set as Set import qualified Data.Sequence as Sq import qualified Data.IntMap as IMap import Data.Sequence (ViewL(..),ViewR(..),(><),(<|),(|>),Seq) bsreadInt :: BC.ByteString -> Int bsreadInt = fst . fromJust . BC.readInt main = do n <- readLn :: IO Int cd <- map ((map bsreadInt . BC.words)) <$> replicateM n BC.getLine print $ f cd f :: [[Int]] -> Int f [] = 0 f (a:an) = mod ((f an) + (g (head a)) * (last a)) 1000000007 where g x = if (even x) then div x 2 else (div x 2) + 1