UT
Моя попытка: data MyList a = MyElem a | MyList [MyList a], но не выглядит корректно...
Size: a a a
UT
UT
UT
UT
UT
UT
к
data NList a
= E
| a :+ NList a
| NList a :* NList a
deriving (Show)
infixr 5 :+
infixr 5 :*
x :: NList Int
x = 1 :+ (2 :+ (3 :+ E) :* 4 :+ E) :* 5 :+ E
UT