Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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 contemplating the Monastery: (6)
As of 2019-06-25 20:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Is there a future for codeless software?



    Results (107 votes). Check out past polls.

    Notices?