_.hs

module Codewars.Kata.Dubstep where

import Prelude
import Data.List (unwords)
import Text.Parsec (many1, manyTill, try, anyChar, string, parse, many, skipMany, (<|>))

-- unwords . filter (not . null) . splitOn "WUB"

-- The above is clearly the stronger solution however parser combinators are cool.

songDecoder :: String -> String
songDecoder = 
  either show unwords . parse song ""

song =
  (skipMany $ try seperator) *> (many $ try stringFollowedBySeperator <|> nonEmptyString)

stringFollowedBySeperator =
  manyTill anyChar (many1 $ try seperator)

nonEmptyString =
  many1 anyChar

seperator =
  string "WUB"