結果
問題 | No.116 門松列(1) |
ユーザー |
![]() |
提出日時 | 2020-09-06 19:01:04 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 7,437 bytes |
コンパイル時間 | 287 ms |
コンパイル使用メモリ | 170,240 KB |
最終ジャッジ日時 | 2024-11-14 23:49:52 |
合計ジャッジ時間 | 834 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default Main.hs:25:14: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 25 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 2] Compiling Main ( Main.hs, Main.o ) Main.hs:63:1: error: [GHC-61948] Could not find module ‘Data.ByteString.Lazy.Builder’. Perhaps you meant Data.ByteString.Builder (from bytestring-0.12.1.0) Data.ByteString.Lazy.Char8 (from bytestring-0.12.1.0) Data.ByteString.Lazy.ReadInt Use -v to see a list of the files searched for. | 63 | import qualified Data.ByteString.Lazy.Builder as BSLB | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:67:1: error: [GHC-87110] Could not load module ‘Data.Graph’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 67 | import qualified Data.Graph as Graph | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:68:1: error: [GHC-87110] Could not load module ‘Data.IntMap’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 68 | import Data.IntMap (IntMap) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:69:1: error: [GHC-87110] Could not load module ‘Data.IntMap’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 69 | import qualified Data.IntMap as IntMap | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:70:1: error: [GHC-87110] Could not load module ‘Data.IntSet’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched fo
ソースコード
LANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGELANGUAGE---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------{- base -}importControl.ApplicativeimportqualifiedControl.ArrowasArrowimportControl.MonadimportControl.Monad.STimportData.BitsimportData.BoolimportqualifiedData.CharasCharimportData.CompleximportqualifiedData.FoldableasFoldableimportData.FunctionimportqualifiedData.ListasListimportData.MaybeimportData.MonoidimportData.OrdimportData.RatioimportData.SemigroupimportqualifiedData.WordasWordimportForeignhidingvoidimportGHC.ExtsimportUnsafe.Coerce{- array -}importqualifiedData.Array.IOasArrIOimportqualifiedData.Array.MArrayasArrMAimportqualifiedData.Array.STasArrSTimportqualifiedData.Array.StorableasArrStoreimportqualifiedData.Array.UnboxedasArrU{- bytestring -}importqualifiedData.ByteStringasBSimportqualifiedData.ByteString.BuilderasBSBimportqualifiedData.ByteString.Builder.ExtraasBSBEimportqualifiedData.ByteString.CharasBSCimportqualifiedData.ByteString.LazyasBSLimportqualifiedData.ByteString.Lazy.BuilderasBSLBimportqualifiedData.ByteString.Lazy.CharasBSLCimportqualifiedData.ByteString.UnsafeasBSU{- containers -}importqualifiedData.GraphasGraphimportData.IntMapIntMapimportqualifiedData.IntMapasIntMapimportData.IntSetIntSetimportqualifiedData.IntSetasIntSetimportqualifiedData.SequenceasSeqimportqualifiedData.TreeasTree{- integer-gmp -}importGHC.Integer.GMP.Internals{- time -}importqualifiedData.Time.CalendarasCalenderimportqualifiedData.Time.Calendar.EasterasCalenderEimportqualifiedData.Time.Calendar.JulianasCalenderJimportqualifiedData.Time.Calendar.MonthDayasCalenderMimportqualifiedData.Time.Calendar.OrdinalDateasCalenderDimportqualifiedData.Time.Calendar.WeekDateasCalenderWimportqualifiedData.Time.LocalTimeasLocalTime{- transformers -}importqualifiedControl.Monad.Trans.AccumasTAccumimportqualifiedControl.Monad.Trans.ContasTContimportqualifiedControl.Monad.Trans.IdentityasTIdimportqualifiedControl.Monad.Trans.ReaderasTReaderimportqualifiedControl.Monad.Trans.State.LazyasTStateLimportqualifiedControl.Monad.Trans.State.StrictasTStateSimportqualifiedControl.Monad.Trans.Writer.CPSasTWriteCimportqualifiedControl.Monad.Trans.Writer.LazyasTWriteLimportqualifiedControl.Monad.Trans.Writer.StrictasTWriteS{- vector -}importqualifiedData.VectorasVimportqualifiedData.Vector.GenericasVGimportqualifiedData.Vector.Generic.MutableasVGMimportqualifiedData.Vector.MutableasVMimportqualifiedData.Vector.PrimitiveasVPimportqualifiedData.Vector.Primitive.MutableasVPMimportqualifiedData.Vector.UnboxedasVUimportqualifiedData.Vector.Unboxed.MutableasVUM---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------main::IO()main = doBSC8.getLinea <- map (fst . fromJust . BSC8.readInt) . BSC8.words <$> BSC8.getLineprint $ solve asolve::Int->Intsolve [] = 0solve [x] = 0solve [x, y] = 0solve (x:y:z:xs)| x /= z && ((x < y && y > z) || (x > y && y < z)) = 1 + solve (y:z:xs)| otherwise = solve (y:z:xs)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------type Parser a = BSC8.ByteString -> Maybe (a, BSC8.ByteString)parseInt::ParserIntparseInt = fmap (Arrow.second BSC8.tail) . BSC8.readIntparseChar::Char->VUVectorCharparseChar = VU.fromListparse1::IOIntparse1 = readLnparse2::IOIntIntparse2 = (\vec -> (vec VU.! 0, vec VU.! 1)) . VU.unfoldrN 2 parseInt <$> BSC8.getLineparse3::IOIntIntIntparse3 = (\vec -> (vec VU.! 0, vec VU.! 1, vec VU.! 2)) . VU.unfoldrN 3 parseInt <$> BSC8.getLineparse4::IOIntIntIntIntparse4 = (\vec -> (vec VU.! 0, vec VU.! 1, vec VU.! 2, vec VU.! 3)) . VU.unfoldrN 4 parseInt <$> BSC8.getLineparseM::Int->IOVUVectorIntparseM m = VU.unfoldrN m parseInt <$> BSC8.getLineparseN::Int->IOVUVectorIntparseN n = VU.replicateM n parse1parseNM::Int->Int->IOVVectorVUVectorIntparseNM n m = V.replicateM n $ VU.unfoldrN m parseInt <$> BSC8.getLineparseANBN::Int->IOVUVectorIntVUVectorIntparseANBN n = dovectup <- VU.replicateM n $ (\vec -> (vec VU.! 0, vec VU.! 1)) . VU.unfoldr (BSC8.readInt . BSC8.dropWhile Char.isSpace) <$> BSC8.getLinereturn $ VU.unzip vectupparseANBNCN::Int->IOVUVectorIntVUVectorIntVUVectorIntparseANBNCN n = dovectup <- VU.replicateM n $ (\vec -> (vec VU.! 0, vec VU.! 1, vec VU.! 2)) . VU.unfoldr (BSC8.readInt . BSC8.dropWhile Char.isSpace) <$> BSC8.getLinereturn $ VU.unzip3 vectup---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------