Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^6: list of four digit lock combinations without repeated digits

by usemodperl (Beadle)
on Jun 22, 2018 at 02:35 UTC ( #1217153=note: print w/replies, xml ) Need Help??

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/ //} qq[@$_] while $_=$i->next; 
    print scalar @x' 4
    
  2. or download this
    time perl -MAlgorithm::Combinatorics=:all -wle'
    my $i=variations_with_repetition(["a".."z"],$ARGV[0]); 
    my @x; push @x, map {$_} qq[@$_] while $_=$i->next; 
    print scalar @x' 4
    
  3. or download this
    time perl -MAlgorithm::Combinatorics=:all -wle'
    my $i=variations_with_repetition(["a".."z"],$ARGV[0]); 
    my @x; push @x, pack "A*", qq[@$_] while $_=$i->next; 
    print scalar @x' 4
    
  4. or download this
    time perl -MAlgorithm::Combinatorics=:all -wle'
    my $i=variations_with_repetition(["a".."z"],$ARGV[0]); 
    my @x; push @x, join "", @$_ while $_=$i->next; 
    print scalar @x' 4
    
  5. or download this
    time perl -MAlgorithm::Combinatorics=:all -le'
    my $i=variations_with_repetition(["a".."z"],$ARGV[0]); 
    my @x; qq[$"=undef]; push @x, qq[@$_] while $_=$i->next; 
    print scalar @x' 4
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1217153]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2020-01-20 07:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?