Re^3: Next from inner loop only works "most of the time"

First guess:

        $master_letter_list = lc $1; ## Force all letter lists to LOWE
+R CASE only
        %master_letter_freq = ();  # <--- ** MISSING LINE **
        for (split //,$master_letter_list)
[download]

Every time $master_letter_list is changed, the frequency hash must be cleared before being added to.

The occasional "failure" is due to the differing sequences of user interaction.

Comment on Re^3: Next from inner loop only works "most of the time" Download Code

Replies are listed 'Best First'.

Re^4: Next from inner loop only works "most of the time"
by Marshall (Canon) on May 20, 2021 at 11:16 UTC

This very well could be the "solution to the problem".
And also explain why previous commands made a difference in the result.
A state dependent failure where what happened before affects what happens now.

My previous thinking of reproducing an entire session would have caused a "hard failure".
The issue is "previous state" dependent.

Thank you, Marshall

if ($line =~ /^\s*:([a-zA-Z]+)\s*$/)   # new list of letters
  {     
        $master_letter_list = lc $1; ## Force all letter lists to LOWE
+R CASE only
        %master_letter_freq=(); ########### ADDED ##########
        
        for (split //,$master_letter_list)
        {
            $master_letter_freq{$_}++;
        }
        
        print "master_letter_freq:\n";
        print Dumper \%master_letter_freq;  #####################
  }
[download]


Perl: the Markov chain saw
	PerlMonks