Help for this page

Select Code to Download


  1. or download this
    time perl -MAlgorithm::Combinatorics=:all -wle'
my $i=variations_with_repetition(["a".."z"],$ARGV[0]); 
my @x; push @x, map {s/ //gr} qq[@$_] while $_=$i->next; 
print scalar @x' 4
  2. or download this
    perl -d:NYTProf -MAlgorithm::Combinatorics=:all -wle'
my $i=variations_with_repetition(["a".."z"],$ARGV[0]); 
my @x; push @x, map {s/ //gr} qq[@$_] while $_=$i->next; 
print scalar @x' 4; nytprofhtml --open