Как в таком случае поизящнее сделать рекурсию хвостовой? type Tree<'a> =

Question

Как в таком случае поизящнее сделать рекурсию хвостовой? type Tree<'a> =

Tree of 'a * Tree<'a> * Tree<'a> | Empty

let rec addToTree (tree: Tree<'a>) (value: 'a) =
match tree with
| Empty -> Tree (value, Tree.Empty, Tree.Empty)
| Tree (x, y, z) ->
if value < x then Tree (x, addToTree y value, z)
else Tree (x, y,addToTree z value)

#fsharp #programming #russian

0

24.02.2018

1 ответов

28 просмотров

Klei · Accepted Answer

Klei

Собери пройденные узлы в списке вместе с инфой о выборе, потом просто сверни результат. // с телефона

0

24.02.2018

169 похожих чатов

Как в таком случае поизящнее сделать рекурсию хвостовой? type Tree<'a> =

1 ответов

Похожие вопросы