diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-03-31 09:55:33 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-03-31 09:55:33 +0100 |
| commit | 07f2fc91840ac12146fdde51ea5a42447a88edfe (patch) | |
| tree | 192c0c5efaa689278d599c8a27222a380f1cfb50 /challenge-001/khalid/perl5 | |
| parent | 3a9fb9543df4b96c1ddfa448430904a79725bc87 (diff) | |
| download | perlweeklychallenge-club-07f2fc91840ac12146fdde51ea5a42447a88edfe.tar.gz perlweeklychallenge-club-07f2fc91840ac12146fdde51ea5a42447a88edfe.tar.bz2 perlweeklychallenge-club-07f2fc91840ac12146fdde51ea5a42447a88edfe.zip | |
- Added solution by Khalid.
Diffstat (limited to 'challenge-001/khalid/perl5')
| -rw-r--r-- | challenge-001/khalid/perl5/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-001/khalid/perl5/ch-2.sh | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/challenge-001/khalid/perl5/ch-1.sh b/challenge-001/khalid/perl5/ch-1.sh new file mode 100644 index 0000000000..02667f6421 --- /dev/null +++ b/challenge-001/khalid/perl5/ch-1.sh @@ -0,0 +1 @@ +perl -E 'my $str = shift; my $i; $i++ while ($str =~ s/e/E/ ) ; say $i; say $str; ' 'Perl Weekly Challenge' diff --git a/challenge-001/khalid/perl5/ch-2.sh b/challenge-001/khalid/perl5/ch-2.sh new file mode 100644 index 0000000000..613820db64 --- /dev/null +++ b/challenge-001/khalid/perl5/ch-2.sh @@ -0,0 +1 @@ +perl -e 'use 5.010;no warnings 'experimental';for (1..20){ given ($_){ when(! ($_ % 15) ){ say 'fizzbuzz'}when(! ($_ % 3 )){ say 'fizz';}when(! ($_ % 5) ){say 'buzz'}default {say $_;}}}' |