throwaway-30964/gen.p6 Secret

## gen.p6

my \L = 3;
my %ng;

.comb.rotor(L.succ => -L).classify(*[^L].join, :as(*.tail(L).join), :into(%ng)) for words.rotor(1 => 1);

%ng{*}.=map(*.BagHash);

for ^10 {
  my $name = gather {
    (my $last = %ng.keys.grep(/^<:Lu>/).pick).take;

    while $_ = %ng{$last} {
      ($last = .grab).substr(L.pred).take;
    }
  }.join;

  say $name;
}

	my \L = 3;
	my %ng;

	.comb.rotor(L.succ => -L).classify([^L].join, :as(.tail(L).join), :into(%ng)) for words.rotor(1 => 1);

	%ng{}.=map(.BagHash);

	for ^10 {
	my $name = gather {
	(my $last = %ng.keys.grep(/^<:Lu>/).pick).take;

	while $_ = %ng{$last} {
	($last = .grab).substr(L.pred).take;
	}
	}.join;

	say $name;
	}