Problem:
パズル

1 〜 9 の数字を 14 個組み合わせて完成させるパズルがあります。与えられた 13 個の数字にもうひとつ数字を付け加えて完成させます。

パズルの完成条件は

同じ数字を２つ組み合わせたものが必ずひとつ必要です。

残りの12 個の数字は、３個の数字の組み合わせ４つです。

３個の数字の組み合わせ方は、同じ数字を３つ組み合わせたものか、または３つの連続する数字を組み合わせたものです。ただし、9 1 2 のような並びは連続する数字とは認められません。

同じ数字は4 回まで使えます。

13 個の数字からなる文字列を読み込んで、パズルを完成することができる数字を昇順に全て出力するプログラムを作成してください。なお、1〜9 のどの数字を付け加えてもパズルを完成させることができないときは 0 を出力してください。

例えば与えられた文字列が 3456666777999 の場合

「2」があれば、　234 567 666 77 999

「3」があれば、　33 456 666 777 999

「5」があれば、　345 567 666 77 999

「8」があれば、　345 666 678 77 999

というふうに、2 3 5 8 のいずれかの数字が付け加えられるとパズルは完成します。「6」でも整いますが、5 回目の使用になるので、この例では使えないことに注意してください。

Input

入力は複数のデータセットからなります。各データセットとして、13 個の数字が１行に与えられます。データセットの数は 50 を超えません。

Output

データセットごとに、パズルを完成させることができる数字を昇順に空白区切りで１行に出力します。

Sample Input

3649596966777
6358665788577
9118992346175
9643871425498
7755542764533
1133557799246

Output for the Sample Input

2 3 5 8
3 4
1 2 3 4 5 6 7 8 9
7 8 9
1 2 3 4 6 7 8
0

Solution in Haskell (judge verdict: Accepted)

import Control.Applicative ((<$>), (<*>))
import Control.Monad
import Data.List
import Data.Array
import Data.Char (digitToInt)

main :: IO ()
main = do
  xs <- inpi $ map digitToInt
  mapM_ (putStrLn . unwords . map show) $ solve xs

solve :: [[Int]] -> [[Int]]
solve = map puzzle

puzzle :: [Int] -> [Int]
puzzle xs = if null ys then [0] else ys
  where
    iarr = accumArray (+) 0 (1,9) $ (map (\x -> (head x, length x)) . group . sort) xs
    ys = filter (agari iarr) [1..9]
    
agari :: Array Int Int -> Int -> Bool
agari arr i = if arr ! i == 4 then False else findAg ars1
  where
    ar1 = accum (+) arr [(i,1)]
    ars1 = jantou ar1
    ag = accumArray (+) 0 (1,9) [(n,0) | n <- [1..9]]
    findAg xs | null xs = False
              | ag `elem` xs = True
              | otherwise = findAg ((concat [syuntsu a | a <- xs]) ++ (concat [koutsu a | a <- xs]))
    
jantou :: Array Int Int -> [Array Int Int]
jantou arr = [accum (-) arr [(i,2)] | i <- [1..9], arr ! i >= 2]

syuntsu :: Array Int Int -> [Array Int Int]
syuntsu arr = [accum (-) arr [(i,1),(i+1,1),(i+2,1)] | i <- [1..7], arr ! i >= 1, arr ! (i + 1) >= 1, arr ! (i + 2) >= 1]

koutsu :: Array Int Int -> [Array Int Int]
koutsu arr = [accum (-) arr [(i,3)] | i <- [1..9], arr ! i >= 3]

inpi :: (String -> a) -> IO [a]
inpi f = map f . lines <$> getContents