ロコリンの雑記

アニメ大好き社会人のロコリンのブログ。2015年卒(修士)の社会人。学生時代(2010年)から続けてるブログなのでエントリによっては学生ブログと社会人ブログになっています。時系列から察して。
 
 
このブログについて
ブログ内検索
カテゴリ
プロフィール

ロコリン

Author:ロコリン
2018年6月から会社員。2015年3月まで大学院生でした。
趣味:アニメ/Twitter/ゲーム/ニコ動
今(2015年2月更新):プリキュア/プリパラ/アイカツ/ごちうさ/艦これ

外部リンク
Twitter

スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

AtCoder Regular Contest #001 問題 A を Haskell で解いた 

AtCoder Regular Contest #001 問題 A を Haskell で解きました。

main = interact $ unlines . map showAns . map (solve "1234") . problem . lines

problem :: [String] -> [(Int,String)]
problem [] = []
problem (cs1:cs2:ss) = (read cs1,cs2):problem ss

solve :: [Char] -> (Int,[Char]) -> (Int,Int)
solve [] (n,_) = (0,n)
solve (a:as) (n,cs) = (max p (fst t),min p (snd t))
	where
		p = length $ filter (== a) cs
		t = solve as (n,cs)

showAns :: (Int,Int) -> String
showAns (a,b) = show a ++ " " ++ show b
スポンサーサイト
コメント















 管理者にだけ表示を許可する

トラックバック
 
http://rexpit.blog29.fc2.com/tb.php/75-74f89793
最新記事
最新コメント
FC2カウンタ
欲しい
最近買ったもの
Amazon 検索
 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。