diff options
| author | Branislav Zahradník <happy.barney@gmail.com> | 2022-10-04 19:52:42 +0200 |
|---|---|---|
| committer | Branislav Zahradník <happy.barney@gmail.com> | 2022-10-04 19:53:04 +0200 |
| commit | be04c0defecbe3f12698c536c3bda30442ea21c8 (patch) | |
| tree | 2888c2656f0cca193a8b0dd815df9eece4a74ead | |
| parent | 21a1b69f0166c2ac51582282d75e5095207e69c5 (diff) | |
| download | perlweeklychallenge-club-be04c0defecbe3f12698c536c3bda30442ea21c8.tar.gz perlweeklychallenge-club-be04c0defecbe3f12698c536c3bda30442ea21c8.tar.bz2 perlweeklychallenge-club-be04c0defecbe3f12698c536c3bda30442ea21c8.zip | |
Challenge 185 - happy-barney - alternative solution of mask-code
| -rw-r--r-- | challenge-185/happy-barney/perl/ch-2-split.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/challenge-185/happy-barney/perl/ch-2-split.pl b/challenge-185/happy-barney/perl/ch-2-split.pl new file mode 100644 index 0000000000..d3d8c846a1 --- /dev/null +++ b/challenge-185/happy-barney/perl/ch-2-split.pl @@ -0,0 +1,14 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +sub challenge_185_2 { + my (@codes) = @_; + + my $count = 4; + my $mask = 'x'; + + map { join 'x', split qr/[a-z0-9]/, $_, 4 +1 } @codes; +} + |