GCJ.hs

module GCJ (runSolver) where

runSolver :: (Int -> [String] -> [a]) ->
             (a -> String) ->
             String -> String
runSolver splitter solver s =
    let ls = lines s
        n = read $ head ls
        ins = splitter n $ tail ls
    in
      unlines $ zipWith formatter [1..] $ map solver ins
    where
      formatter :: Int -> String -> String
      formatter c s = "Case #" ++ (show c) ++ ": " ++ s