-- http://www.codewars.com/kata/55147ff29cd40b43c600058b
module Codewars.Kata.Catenation where

charConcat :: String -> String
charConcat word = concat $ zipWith3 (\a b c -> a:b:c) word (reverse word) ns where
  ns = map show [1 .. length word `div` 2]
