-- Tail Swap
-- 

module Kata(tailSwap) where

import Data.List (break)

tailSwap :: (String, String) -> (String, String)
tailSwap (a, b) = (aa ++ bb, ba ++ ab)
    where (aa, ab) = break (== ':') a
          (ba, bb) = break (== ':') b

 Tail Swap
 

module Kata(tailSwap) where

import Data.List (break)

tailSwap :: (String, String) -> (String, String)
tailSwap (a, b) = (aa ++ bb, ba ++ ab)
    where (aa, ab) = break (== ':') a
          (ba, bb) = break (== ':') b
