結果

問題 No.346 チワワ数え上げ問題
コンテスト
ユーザー pekempey
提出日時 2016-07-29 17:17:40
言語 Haskell
(9.10.1)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 611 bytes
コンパイル時間 479 ms
コンパイル使用メモリ 149,888 KB
最終ジャッジ日時 2024-11-14 19:48:01
合計ジャッジ時間 938 ms
ジャッジサーバーID
（参考情報） 		judge5 / 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:2:1: error: [GHC-87110]
    Could not load module ‘Data.Map’.
    It is a member of the hidden package ‘containers-0.6.8’.
    Use -v to see a list of the files searched for.
  |
2 | import Data.Map
  | ^^^^^^^^^^^^^^^

ソースコード

diff # 

import Control.Applicative
import Data.Map
import Data.List
import Data.Maybe

upd k v = insertWithKey (\k x y -> x + y) k v
get k mp = fromMaybe 0 $ Data.Map.lookup k mp

dfs :: String -> (Map Int Int) -> Int
dfs [] dp = get 3 dp
dfs (s : ss) dp =
    dfs ss $
    upd 0 (get 0 dp) .
    upd 1 (get 1 dp) .
    upd 2 (get 2 dp) .
    upd 3 (get 3 dp) .
    (if s == 'c' then upd 1 (get 0 dp) else id) .
    (if s == 'w' then upd 2 (get 1 dp) else id) .
    (if s == 'w' then upd 3 (get 2 dp) else id) $ Data.Map.empty

main = do
    s <- getLine
    let n = length s
    print $ dfs s $ upd 0 1 Data.Map.empty
0