使用清单

Question

我是初学者，在haskell中编写hangman的实现。 必要显示在“*‘般的字符串，目前我使用的代码猜字：

proceed char word progress = let zprog = zip progress [0..] in 
    foldl (\a x -> a ++ [fst x]) "" $ map (f char word) zprog where  
     f c w el = 
      if c == w !! (snd el) then 
       (c, snd el) 
      else 
       el 

如果词是‘影子’等进步‘******’，字符=’ s'函数返回“s ****”。

我该如何重写该函数？我看到它不是干净的解决方案。 溶液（@luqui）：

proceed char = zipWith combine where 
    combine x y 
     | x == char = char 
     | otherwise = y 

（ “字”， “进步” 的论点转移到zipWith becose Haskell的ETA还原）

Answer 1

您是想zip吧，你只是似乎有做了一些额外的工作。看看你能否写出合适的帮手功能combine：

proceed char word progress = zipWith combine word progress 
    where 
    combine :: Char -> Char -> Char 
    combine = ?