diff options
| author | Sangeet Kar <ssauravk@areas.com> | 2020-05-11 15:56:40 +0200 |
|---|---|---|
| committer | Sangeet Kar <ssauravk@areas.com> | 2020-05-11 15:56:40 +0200 |
| commit | dc179ba5f7a9f868a037617bc6c62a4696fe5dec (patch) | |
| tree | d4e1f23989912354f0e81dcada3c64a722d733dd | |
| parent | ad67d038ef0f7baeeea8d57d3353ebcd28333a73 (diff) | |
| download | perlweeklychallenge-club-dc179ba5f7a9f868a037617bc6c62a4696fe5dec.tar.gz perlweeklychallenge-club-dc179ba5f7a9f868a037617bc6c62a4696fe5dec.tar.bz2 perlweeklychallenge-club-dc179ba5f7a9f868a037617bc6c62a4696fe5dec.zip | |
Ch-1 - One-liner (though not very efficient)
Ch-2 - Algorithm::Combinatorics to the rescue
| -rw-r--r-- | challenge-060/sangeet-kar/perl/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-060/sangeet-kar/perl/ch-2.pl | 12 |
2 files changed, 13 insertions, 0 deletions
diff --git a/challenge-060/sangeet-kar/perl/ch-1.sh b/challenge-060/sangeet-kar/perl/ch-1.sh new file mode 100644 index 0000000000..9da2537a4e --- /dev/null +++ b/challenge-060/sangeet-kar/perl/ch-1.sh @@ -0,0 +1 @@ +perl -E '$xcol="A"; for (1..16384) {$xcol_num{$xcol}=$_; $num_xcol{$_}=$xcol; $xcol++}; say /\d+/ ? $num_xcol{$_} : $xcol_num{$_} for (shift)' diff --git a/challenge-060/sangeet-kar/perl/ch-2.pl b/challenge-060/sangeet-kar/perl/ch-2.pl new file mode 100644 index 0000000000..47601db42f --- /dev/null +++ b/challenge-060/sangeet-kar/perl/ch-2.pl @@ -0,0 +1,12 @@ +use 5.30.0; +use warnings; +use Algorithm::Combinatorics qw(variations_with_repetition); + +sub solve { + my ($listref, $k, $limit) = @_; + say join ', ', + grep /^[^0]+/ && $_ < $limit, + map join('', @$_), variations_with_repetition ($listref, $k); +} + +solve ([0, 1, 2, 5], 2, 21);
\ No newline at end of file |