скажи у меня хотя бы флатмап совпадает с твоим в бинтри?
посмотрел, не совпадает) тот join, который народ в свитере написал поменьше деревья дает надо было мне, конечно, шаблон реализации написать, там док-ва будут сильно отличаться в общем, вот такая там реализация была
join (Leaf t) := t; join (Node ll (Leaf x) rr) := Node (join ll) x (join rr); join (Node ll (Node l x r) rr) := Node l x (join (Node ll r rr)).