Help for this page
for my $digit (@digits) { next if $digit ~~ @number; ... append_digit(); pop @number; }
for my $pos (0..$#digits) { push @number, $digits[$pos]; ... append_digit(); pop @number; }
#!perl use strict; ... say "count: " . (0+@results); #say for sort { $a <=> $b } @results;
www.com | www.net | www.org
No recent polls found