Lv2

文字列中に一度しか出現しない文字を抜き出す。

ex. "aabcccd" -> "bd"

rareCharFilter :: String -> String
rareCharFilter [] = []
rareCharFilter (x:xs)
 | any (x ==) xs = rareCharFilter $ filter (/= x) xs
 | otherwise = x : rareCharFilter xs

main :: IO()
main = do x <- getContents
          putStrLn $ rareCharFilter x

rareCharFilter内で再帰しているため、^DでEOFを送ってやるかファイルからリダイレクトする必要がある。

入力から一文字とって、その文字が以降の文字列に出現していれば削除、出現していなければ残して次、と繰り返すだけ。