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 и тд)
спасибо, я про эту не знал (но моя история поиска знала)
но как мне это поможет в инордер?)
Обсуждают сегодня