15/11/18 23:42:26.25 YAZwGvpo.net
>>133 Haskell
import Data.List
main = putStr . unlines . takeWhile (/= []) $ iterate f "ABBACACBBA"
f [_] = ""
f (x:x':xs) = (if x == x' then x else head ("ABC" \\ [x, x'])) : f (x':xs)
15/11/18 23:42:26.25 YAZwGvpo.net
>>133 Haskell
import Data.List
main = putStr . unlines . takeWhile (/= []) $ iterate f "ABBACACBBA"
f [_] = ""
f (x:x':xs) = (if x == x' then x else head ("ABC" \\ [x, x'])) : f (x':xs)