DouKaku?

import List
import Maybe

count pred xs = length $ filter pred xs

countDigs' radix ks = map sum $ transpose $ map (countDigs radix) ks

combListsS n lim = sequence $ replicate n [1..lim-1]

combLists'' n = [1..] >>= combListsM n

check radix xss = mapMaybe f xss  where
  f xs = if xs' == cs then Just xs' else Nothing  where
    xs' = reverse xs
    cs = map (+1) $ countDigs' radix xs'

showResult radix xs = ("この文は" ++) $ (++ "あります。")
  $ concat $ intersperse ", "
  $ map ct [0..radix-1]
  where ct i = show i ++ "が" ++ showIntAtBase radix intToDigit (xs!!i) "個"