6 my $re = '\A[^#]*' . join('[^#]+', map { "#{$_}" } @l) . '[^#]*\z';
7 # say "$pat =~ /$re/ @l";
19 } elsif (valid($pat, @l)) {
28 my ($pattern, $list) = split / /;
29 my @list = $list =~ /\d+/g;
31 my $s = walk($pattern, @list);
32 say "$pattern @list = $s";