- プログラミングのお題スレ Part8©2ch.net
138 ：デフォルトの名無しさん[sage]：2015/11/18(水) 23:42:26.25 ID:YAZwGvpo - >>132 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)
|
|