解法
サイズが小さいので、t 回のシミュレーションをすることで解けます。
コード
import Control.Applicative import Control.Monad import Data.List main = do [ _, t ] <- map read . words <$> getLine s <- getLine putStrLn $ solve t s solve :: Int -> String -> String solve 0 s = s solve t s = solve ( t - 1 ) ( conv s ) where conv :: String -> String conv [] = [] conv ('B':'G':s) = 'G' : 'B' : ( conv s ) conv (c:s) = c : conv s