Personal tools

99 questions/Solutions/71

From HaskellWiki

Jump to: navigation, search

(*) Determine the internal path length of a tree.

We define the internal path length of a multiway tree as the total sum of the path lengths from the root to all nodes of the tree. By this definition, tree5 has an internal path length of 9.

ipl :: Tree a -> Int
ipl = ipl' 0
  where ipl' d (Node _ ts) = d + sum (map (ipl' (d+1)) ts)