メリークリスマス！ 1日1個 @nabetani さんの作った問題を解くAdventCalendarの最終目です。最後なので2つ解いちゃいましょう！
一問目は http://qiita.com/Nabetani/items/cbc3af152ee3f50a822f です。今日はピックアップされている中で一番古い問題に挑戦します。
module Doukaku.Poker (solve) where
import Data.List.Split (splitWhen)
import Data.List (sort, group)
solve :: String -> String
solve = decide . sort . map length . group . sort . parse
where
decide [1,4] = "4K"
decide [2,3] = "FH"
decide [1,1,3] = "3K"
decide [1,2,2] = "2P"
decide [1,1,1,2] = "1P"
decide _ = "--"
parse :: String -> [String]
parse = tail . splitWhen (`elem` "SHDC")
スートは無視してオッケーなので、簡単ですね。group関数を使ったお陰で大変シンプルになりました。スートはパース時に捨てています。
そして、二問目は http://qiita.com/Nabetani/items/d819d1e5f2378317511e です。一問目の続編です。
module Doukaku.Poker2013 (solve) where
import Data.List (sort, group, tails)
import Data.Char (intToDigit)
solve :: String -> String
solve input
| 'T' `elem` (map fst cards) && 'A' `elem` (map fst cards) &&
samesuit cards == 5 && ordered cards == 5 = "RF"
| samesuit cards == 5 && ordered cards == 5 = "SF"
| samesuit cards == 5 = "FL"
| ordered cards == 5 = "ST"
| any (\cs -> samesuit cs == 4 && ordered cs == 4) card4s = "4SF"
| samesuit cards == 4 = "4F"
| ordered cards == 4 = "4S"
| otherwise = "-"
where
card4s = map (\c -> filter (/= c) cards) cards
cards = parse input
samesuit, ordered :: [(Char, Char)] -> Int
samesuit = maximum . map length . group . sort . map snd
ordered hs = maximum . map (contains (map fst hs)) . tails $ numberorder
contains _ [] = 0
contains hs (x:xs)
| x `elem` hs = 1 + contains hs xs
| otherwise = 0
parse :: String -> [(Char, Char)]
parse ('1':'0':s:cs) = ('T', s) : parse cs
parse (n:s:cs) = (n, s) : parse cs
parse _ = []
numberorder :: [Char]
numberorder = 'A' : map intToDigit [2 .. 9] ++ "TJQKA"
連番とスートを判定しなければいけないため。一問目とは全く趣が異なる問題に仕上がっています。orderedとsamesuiteで
連番とスートの枚数を判定し、これを使って判断する戦略を取りました。が、これだと"4SF"だけうまく判断できません。
連番の4枚と同じスートの4枚が別の組かもしれないためです。なので、急遽card4sを用意することになり、旨みがなくなってしまいました。
このAdvent Calendarで作ったソースコードは、すべて https://github.com/hiratara/doukaku-past-questions-advent-2013 にアップしてあります。
Travis CIでのテストは https://travis-ci.org/hiratara/doukaku-past-questions-advent-2013 に。
今回は試しに detailed-0.9 でテストを書いてみてハマった点もあったのですが、その話はまたの機会に。