1) Функция removeDoubleStars :: [String] -> [String]
Составить список из строк исходного списка, в который входят все строки, кроме строк, имеющих среди символов строки более одного символа '*' ("звездочка")

2) Дерево произвольной структуры имеет следующее описание типа данных
data Tree a = Node a [Tree a]
то есть каждый узел дерева имеет список поддеревьев. Определить функцию обработки деревьев:
height :: Tree a -> Int
Вычисляет высоту дерева.

count c = length . elemIndices c
removeDoubleStars = filter (\x -> count '*' x <= 1)

height (Node _ []) = 1
height (Node _ ts) = 1 + (maximum . map height) ts

VE>count c = length . elemIndices c
VE>removeDoubleStars = filter (\x -> count '*' x <= 1)
VE>

noMoreThan n  = null . drop n
removeDoubleStars = filter $ noMoreThan 1 . elemIndices '*'

removeDoubleStars = filter (not . isPrefixOf "**" . filter(=='*'))

Haskell, который сочетает черты чисто функционального языка с возможностями объектно-ориентированного стиля программирования

{-# OPTIONS_GHC -XDeriveDataTypeable  #-}
import Data.Generics

data Tree a = Node a [Tree a] deriving (Typeable, Data, Show)

height = gdepth

D>{-# OPTIONS_GHC -XDeriveDataTypeable  #-}
D>import Data.Generics

D>data Tree a = Node a [Tree a] deriving (Typeable, Data, Show)

D>height = gdepth
D>

D>

*Main> gdepth $ Node 1 []
Loading package syb ... linking ... done.
2
*Main> gdepth $ Node 1 [Node 2 []]
4
*Main> gdepth $ Node 1 [Node 2 [], Node 3 []]
5
*Main> gdepth $ Node 1 [Node 2 [], Node 3 [], Node 4 []]
6

Node
|- 1
|- (:)
   |- Node
   |  |- 2
   |  |- []
   |- (:)
      |- Node
      |  |- 3
      |  |- []
      |- (:)
         |- Node
         |  |- 4
         |  |- []
         |- []