結果
問題 | No.457 (^^*) |
ユーザー | ducktail |
提出日時 | 2018-08-22 15:53:31 |
言語 | Haskell (9.8.2) |
結果 |
MLE
|
実行時間 | - |
コード長 | 752 bytes |
コンパイル時間 | 8,020 ms |
コンパイル使用メモリ | 172,160 KB |
実行使用メモリ | 809,216 KB |
最終ジャッジ日時 | 2024-06-06 13:16:21 |
合計ジャッジ時間 | 9,106 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
10,752 KB |
testcase_01 | AC | 1 ms
5,248 KB |
testcase_02 | AC | 1 ms
5,376 KB |
testcase_03 | AC | 1 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 | 3 ms
5,376 KB |
testcase_08 | AC | 14 ms
12,672 KB |
testcase_09 | AC | 69 ms
36,096 KB |
testcase_10 | AC | 620 ms
212,096 KB |
testcase_11 | MLE | - |
testcase_12 | -- | - |
testcase_13 | -- | - |
testcase_14 | -- | - |
testcase_15 | -- | - |
testcase_16 | -- | - |
testcase_17 | -- | - |
testcase_18 | -- | - |
testcase_19 | -- | - |
コンパイルメッセージ
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
ソースコード
import Control.Applicative import Data.List main :: IO () main = solve <$> getLine >>= putStrLn solve :: String -> String solve xs = f $ foldl' count (0,0) (tails xs) where f (x, y) = unwords . map show $ [x, y] data Face = L0 | L1 | L2 | L3 | R0 | R1 | R2 | R3 left L0 '^' = L1 left L1 '^' = L2 left L2 '*' = L3 left s _ = s right R0 '*' = R1 right R1 '^' = R2 right R2 '^' = R3 right s _ = s point L3 = 1 point R3 = 1 point s = 0 count :: (Int, Int) -> String -> (Int, Int) count (l, r) ('(':xs) = let (x,y,_,_) = foldl' f (l, r, L0, R0) xs in (x, y) where f (cl, cr, sl, sr) c | c == ')' = (cl + point sl, cr + point sr, sl, sr) | otherwise = (cl, cr, left sl c, right sr c) count (l, r) _ = (l, r)