diff options
| author | Max Kossek <29681896+maxkossek@users.noreply.github.com> | 2020-05-09 14:34:07 -0700 |
|---|---|---|
| committer | Max Kossek <29681896+maxkossek@users.noreply.github.com> | 2020-05-09 14:34:07 -0700 |
| commit | 28933d6f1d7f46305938cb3eaf2cecbeb3c46b4d (patch) | |
| tree | cf25f53f0ff2bd070ac6d9f695d7e0c01ccb3055 /challenge-001/max-kossek | |
| parent | c193190e04829807edb9d1f2dec7be9c9a554b80 (diff) | |
| download | perlweeklychallenge-club-28933d6f1d7f46305938cb3eaf2cecbeb3c46b4d.tar.gz perlweeklychallenge-club-28933d6f1d7f46305938cb3eaf2cecbeb3c46b4d.tar.bz2 perlweeklychallenge-club-28933d6f1d7f46305938cb3eaf2cecbeb3c46b4d.zip | |
Add challenge 1, 5, 7, and 8 solutions for Max Kossek
Diffstat (limited to 'challenge-001/max-kossek')
| -rw-r--r-- | challenge-001/max-kossek/README | 1 | ||||
| -rw-r--r-- | challenge-001/max-kossek/perl/ch-1.pl | 9 | ||||
| -rw-r--r-- | challenge-001/max-kossek/perl/ch-2.pl | 8 |
3 files changed, 18 insertions, 0 deletions
diff --git a/challenge-001/max-kossek/README b/challenge-001/max-kossek/README new file mode 100644 index 0000000000..fae891e43d --- /dev/null +++ b/challenge-001/max-kossek/README @@ -0,0 +1 @@ +Solution by Max Kossek diff --git a/challenge-001/max-kossek/perl/ch-1.pl b/challenge-001/max-kossek/perl/ch-1.pl new file mode 100644 index 0000000000..0214eb5e0b --- /dev/null +++ b/challenge-001/max-kossek/perl/ch-1.pl @@ -0,0 +1,9 @@ +#!/usr/bin/perl; +use strict; +use warnings; + +my $input_string = 'Perl Weekly Challenge'; +my $count_e = $input_string =~ s/e/E/g; +print "$input_string - Number of e's replaced: $count_e\n"; + +__END__ diff --git a/challenge-001/max-kossek/perl/ch-2.pl b/challenge-001/max-kossek/perl/ch-2.pl new file mode 100644 index 0000000000..0ba1607c5d --- /dev/null +++ b/challenge-001/max-kossek/perl/ch-2.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl; +use strict; +use warnings; + +print grep { $_ % 15 == 0 ? $_ = 'fizzbuzz' : $_ % 5 == 0 + ? $_ = 'fizz' : $_ % 3 == 0 ? $_ = 'buzz' : $_ } 1..20; + +__END__ |