如何用haskell编写一个使用列表理解的函数？

Question

我已经写了使用map这个功能，但我需要写这个用list理解：

alter = map (\x -> if x == 0 then 1 else 0) 

它给例如

alter [1,1,0] 
> [0,0,1] 

Answer 1

你不能写点，免费使用列表理解：

alter xs = [if x == 0 then 1 else 0 | x <- xs]