Largest word tree

Question

I was inspired by this awesome puzzle. Here is an image of a word tree borrowed from there:

In a word tree every path from the root to the leaves must form a distinct word. The size of the tree is the number of distinct words it forms in this way. The size of this tree is 16 as it forms 16 distinct words: BLOOM, BLOOD, BLOWN, BLOWS, BLAND, BLANK, BLASÉ, BLAST, BROOK, BROOM, BROWN, BROWS, BRAID, BRAIN, BRASH, BRASS. Note that words that do not reach the leaves are not counted, so for example we do not count the words BLOW, BROW and BRA. You must use words from this dictionary. Every branch must split into exactly two (or zero) other branches above it. The two branches may use the same letter. The leaves can be at different distances from the root. So we can extend the BRAIN branch into BRAINY and BRAINS, thus increasing the size of this tree to 17. What is the size of the largest word tree possible? You may use a computer to find the answer.

Answer 1

I wrote a computer progam for this problem. It found the following tree:

This tree with root S contains 67 words.

squabbed
squabber
squabbled
squabbles
squabbly
squabs
squalled
squallers
squallery
squally
squalm
squeaked
squeakers
squeakery
squeaks
squeald
squeals
squeel
squeezed
squeezes
squeezy
squadded
squadder
squaddy
squads
squawks
squawky
squaws
squirms
squirmy
squirts
squirty
squished
squishes
squishy
squiss
stagers
stagery
stagey
stagged
staggers
staggery
staggy
starken
starker
starkle
starkly
startled
startles
startly
starty
striped
stripes
stripy
strived
striven
strivy
strobed
strobes
strobic
strobilae
strobilar
strobils
stropped
stropper
stroppy
strops

Note that this is not quite in alphabetical order because SQ has two children of letter U, the first with grandchildren A&E and the second with A&I.

The program works relatively straightforwardly. First it puts all the words in a tree structure. Then it prunes all the branches that have a node with only one branch. Then it prunes away all the smallest surplus branches until there are no more than two branches at each node. There is the slight complication that a node with 4 branches can be split into two branches with the same letter, so that has to be done first before pruning away.

Here's my C# program:

  using System.Collections.Generic;
  using System.Linq;
  using System.Text;
namespace TempProg
  {
     static class PSEWordTree
     {
        public class LetterNode
        {
           public char Letter;
           public List<LetterNode> Children = new List<LetterNode>();
       internal void Add(string word)
       {
          if( word==null || word.Length == 0) return;
          char firstLetter = word.First();
          LetterNode child = Children.FirstOrDefault(c =&gt; c.Letter == firstLetter);
          if (child == null)
          {
             child = new LetterNode();
             child.Letter = firstLetter;
             Children.Add(child);
          }
          child.Add(word.Substring(1));
       }

       // Prune any nodes with only one child
       internal void Prune1()
       {
          for (int i = Children.Count - 1; i &gt;= 0; i--)
          {
             var c = Children[i];
             c.Prune1();
             if (c.Children.Count == 1 &amp;&amp; Children.Count &gt; 1) Children.RemoveAt(i);
          }
       }

       // Prune surplus branches
       internal void Prune2()
       {
          for( int i=Children.Count - 1; i&gt;=0; i--)
          {
             var c = Children[i];
             if (c.Children.Count == 0) continue;

             c.Prune2();
             c.Children = c.Children.OrderByDescending(c2 =&gt; c2.NumLeaves()).ToList();
             if (c.Children.Count &gt; 4) c.Children.RemoveRange(4, c.Children.Count - 4);
             if (c.Children.Count == 4)
             {
                var c2 = new LetterNode();
                c2.Letter = c.Letter;
                c2.Children = c.Children.GetRange(2, 2).ToList();
                c.Children.RemoveRange(2, 2);
                Children.Insert(i + 1, c2);
             }
             else if (c.Children.Count == 3)
             {
                c.Children.RemoveAt(2);
             }
          }
       }

       internal int NumLeaves()
       {
          if (Children.Count == 0) return 1;
          return Children.Select(c =&gt; c.NumLeaves()).Sum();
       }

       internal List&lt;string&gt; GetWords()
       {
          if(Children.Count == 0)
          {
             return new List&lt;string&gt; { Letter.ToString() };
          }
          var w = Children.OrderBy(c =&gt; c.Letter).SelectMany(c =&gt; c.GetWords()).Select(s =&gt; Letter + s);
          return w.ToList();
       }

       public override string ToString()
       {
          StringBuilder s = new StringBuilder();
          foreach(var w in GetWords())
          {
             s.AppendLine(w);
          }
          return s.ToString();
       }

    }

    public static void Main()
    {
       var root = new LetterNode();

       foreach (string line in System.IO.File.ReadLines(@&quot;E:\temp\words_alpha.txt&quot;))
       {
          root.Add(line);
       }
       root.Prune1();
       root.Prune2();

       foreach (var c in root.Children)
       {
          System.Console.WriteLine(&quot;For letter {0} the tree has {1} words.&quot;, c.Letter, c.NumLeaves());
       }
       System.Console.WriteLine();

       foreach (var c in root.Children)
       {
          System.Console.WriteLine(&quot;For letter {0} the tree has {1} words.&quot;, c.Letter, c.NumLeaves());
          System.Console.WriteLine(c);
       }
    }

 }

}