結果

問題 No.714 回転寿司屋のシミュレート
ユーザー ducktail
提出日時 2018-07-20 17:57:26
言語 Haskell
(9.10.1)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,415 bytes
コンパイル時間 2,095 ms
コンパイル使用メモリ 198,936 KB
最終ジャッジ日時 2024-11-14 20:32:45
合計ジャッジ時間 2,775 ms
ジャッジサーバーID
(参考情報)
judge3 / judge1
このコードへのチャレンジ
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )

Main.hs:12:3: error: [GHC-88464]
    Variable not in scope:
      replicateM :: Int -> IO [ByteString] -> IO [[ByteString]]
    Suggested fixes:
      • Perhaps use one of these:
          ‘V.replicateM’ (imported from Data.Vector),
          ‘replicate’ (imported from Prelude),
          ‘V.replicate’ (imported from Data.Vector)
      • Add ‘replicateM’ to the import list in the import of
        ‘Data.Vector’ (at Main.hs:5:1-38).
   |
12 |   replicateM n (B.words <$> B.getLine) >>= solve
   |   ^^^^^^^^^^

ソースコード

diff #
プレゼンテーションモードにする

import Control.Applicative ((<$>))
import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B
import Data.List (delete)
import Data.Vector (Vector, (!), (//))
import qualified Data.Vector as V
import Control.Monad.State
main :: IO ()
main = do
n <- readi B.readInt <$> B.getLine
replicateM n (B.words <$> B.getLine) >>= solve
solve :: [[ByteString]] -> IO ()
solve bs = evalStateT (sushi bs) (V.replicate 21 [])
sushi :: [[ByteString]] -> StateT (Vector [ByteString]) IO ()
sushi [] = return ()
sushi ((d:rs):bs) | readi B.readInt d == 0 = do
let (n:_:as) = rs
v <- get
put $ v // [(readi B.readInt n, as)]
sushi bs
| readi B.readInt d == 2 = do
v <- get
put $ v // [(readi B.readInt (head rs), [])]
sushi bs
| otherwise = do
v <- get
case V.findIndex (\ls -> (head rs) `elem` ls) v of
Just x -> do
lift $ putStrLn (show x)
put $ v // [(x, delete (head rs) (v ! x))]
Nothing -> lift $ putStrLn "-1"
sushi bs
readi :: Integral a => (ByteString -> Maybe (a, ByteString)) -> ByteString -> a
readi f s = let Just (n, _) = f s in n
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0