Инвертировать все списки на всех уровнях вложенности списочной структуры

10.04.2013, 00:59. **Показов** 1182. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Дана произвольная списочная структура. Списочная структура - это список, элементами которого могут быть как атомарные списки, так и другие списочные структуры(в том числе обыкновенные списки).

Пример списочной структуры:

Haskell

1	[a1,[a2,a3,[a4]],a5]

Требуется создать код на языке Haskell, который инвертирует все списки на всех уровнях вложенности списочной структуры.

@calabi-yau · 10.04.2013, 01:43

Haskell

data E a = A a | L (List a)
 
type List a = [E a]
 
reverse' :: List a -> List a
reverse' xs = foldl aux [] xs
  where
    aux xs (L x) = L (reverse' x) : xs
    aux xs    x  = x : xs

10.04.2013, 19:46

спасибо!

deskKira
	10.04.2013, 19:46	3
	спасибо!

	10.04.2013, 19:46