From 88efacf3ed9202468cdc5156dd7bd1b2efdf68cf Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 1 Apr 2019 00:37:12 +0100 Subject: - Correct member name. --- challenge-001/kian-mang-ang/perl5/ch-1.pl | 8 -------- challenge-001/kian-mang-ang/perl5/ch-2.sh | 2 -- challenge-001/kian-meng-ang/perl5/ch-1.pl | 8 ++++++++ challenge-001/kian-meng-ang/perl5/ch-2.sh | 2 ++ members.json | 2 +- 5 files changed, 11 insertions(+), 11 deletions(-) delete mode 100644 challenge-001/kian-mang-ang/perl5/ch-1.pl delete mode 100644 challenge-001/kian-mang-ang/perl5/ch-2.sh create mode 100644 challenge-001/kian-meng-ang/perl5/ch-1.pl create mode 100644 challenge-001/kian-meng-ang/perl5/ch-2.sh diff --git a/challenge-001/kian-mang-ang/perl5/ch-1.pl b/challenge-001/kian-mang-ang/perl5/ch-1.pl deleted file mode 100644 index d2c0f825b4..0000000000 --- a/challenge-001/kian-mang-ang/perl5/ch-1.pl +++ /dev/null @@ -1,8 +0,0 @@ -use strict; -use warnings; - -my $string = 'Perl Weekly Challenge'; -my $e_count = $string =~ tr/e/E/; - -print "New replaced string: ", $string, "\n"; -print "Number of times 'e' character found: ", $e_count, "\n"; diff --git a/challenge-001/kian-mang-ang/perl5/ch-2.sh b/challenge-001/kian-mang-ang/perl5/ch-2.sh deleted file mode 100644 index a2567ea76f..0000000000 --- a/challenge-001/kian-mang-ang/perl5/ch-2.sh +++ /dev/null @@ -1,2 +0,0 @@ -perl -e 'print "$_ " x ($_ % 3 != 0 && $_ % 5 != 0), "Fizz" x ($_ % 3 == 0), "Buzz" x ($_ % 5 == 0), "\n" for (1 .. 20);' - diff --git a/challenge-001/kian-meng-ang/perl5/ch-1.pl b/challenge-001/kian-meng-ang/perl5/ch-1.pl new file mode 100644 index 0000000000..d2c0f825b4 --- /dev/null +++ b/challenge-001/kian-meng-ang/perl5/ch-1.pl @@ -0,0 +1,8 @@ +use strict; +use warnings; + +my $string = 'Perl Weekly Challenge'; +my $e_count = $string =~ tr/e/E/; + +print "New replaced string: ", $string, "\n"; +print "Number of times 'e' character found: ", $e_count, "\n"; diff --git a/challenge-001/kian-meng-ang/perl5/ch-2.sh b/challenge-001/kian-meng-ang/perl5/ch-2.sh new file mode 100644 index 0000000000..a2567ea76f --- /dev/null +++ b/challenge-001/kian-meng-ang/perl5/ch-2.sh @@ -0,0 +1,2 @@ +perl -e 'print "$_ " x ($_ % 3 != 0 && $_ % 5 != 0), "Fizz" x ($_ % 3 == 0), "Buzz" x ($_ % 5 == 0), "\n" for (1 .. 20);' + diff --git a/members.json b/members.json index 6a4251eb68..0b6aa32f39 100755 --- a/members.json +++ b/members.json @@ -28,7 +28,7 @@ "john-barrett" : "John Barrett", "juan-caballero" : "Juan Caballero", "khalid" : "Khalid", - "kian-mang-ang" : "Kian-Meng Ang", + "kian-meng-ang" : "Kian-Meng Ang", "kivanc-yazan" : "Kivanc Yazan", "lars-balker" : "Lars Balkar", "laurent-rosenfeld" : "Laurent Rosenfeld", -- cgit