- 620 名前：デフォルトの名無しさん [2019/03/11(月) 16:12:48.47 ID: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
