Node (Tree a) a (Tree a)
repeatT x = fix \t -> Node t x t
flattenTree Leaf = []
flattenTree (Node ln x rn) = flattenTree ln <> [x] <> flattenTree rn
example = take 10 $ flattenTree $ repeatT 1
мне кажется с деревом так не получиться
Попробуй пакет fmlist. Но функцию самому придется определить все равно наверное
так то и free-functors есть (обобщение fmlist и тд)
спасибо, я про эту не знал (но моя история поиска знала)
но как мне это поможет в инордер?)
Обсуждают сегодня