19/03/11 16:12:48.47 TMb+YRHxP
>>571
>>597
Haskellでも複数対応してみた。
main = mapM_ (putStrLn.secret "abcdef" [2,3,5]) [elem,notElem]
secret xs ns = secret' xs 1 ns
where
secret' [] _ _ _ = []
secret' (x:xs) n as f | f n as = x:secret' xs (n + 1) as f
secret' (_:xs) n as f = '*':secret' xs (n + 1) as f