Код: Выделить всё
main = do mapM_ print . map (\x -> x^2) . filter (\x -> (mod x 2) == 0) $ [1..20]
Подробнее здесь: https://stackoverflow.com/questions/333 ... skell-like
Код: Выделить всё
main = do mapM_ print . map (\x -> x^2) . filter (\x -> (mod x 2) == 0) $ [1..20]