結果

問題 No.29 パワーアップ
コンテスト
ユーザー highd
提出日時 2016-08-20 20:16:41
言語 Haskell
(9.10.1)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 750 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 399 ms
コンパイル使用メモリ 157,696 KB
最終ジャッジ日時 2025-10-24 20:58:23
合計ジャッジ時間 754 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.10.1/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
Main.hs:5:1: error: [GHC-87110]
    Could not load module ‘Data.Map’.
    It is a member of the hidden package ‘containers-0.7’.
    Use -v to see a list of the files searched for.
  |
5 | import Data.Map hiding (filter)
  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ソースコード

diff #
raw source code 

import qualified Data.Text as T
import qualified Data.Text.IO as TI
import Control.Applicative hiding (empty)
import Data.List hiding (concat)
import Data.Map hiding (filter)
import Data.Foldable
import Data.Monoid
import Prelude hiding (concat)
readLines = sequence.flip replicate TI.getLine

readInt::String->Int
readInt=read

count_dict :: (Ord k, Num a) => [k] -> Map k a
count_dict [] = empty
count_dict (x:xs) = 
  let s = count_dict xs in
      insertWithKey (\k x y ->x+y)  x 1 s

main = do
	m <- readInt<$>getLine
	list <- elems.count_dict.concat<$>fmap (fmap (readInt.T.unpack).T.split(==' '))<$>readLines m
	let same=getSum$foldMap (\x->Sum$x`div`2) list
	let not_same=length$filter ((/=0).(`mod`2)) list
	putStrLn$show$not_same`div`4+same
0