diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-01-07 13:47:15 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-01-07 13:47:15 +0000 |
| commit | fc866a82637d13bec17761d45ddc51de9eb846be (patch) | |
| tree | acb54dc13dd0146c661c0c4fb6e851ec71c5880e | |
| parent | 054e63fc25f96135ba470c06757d516c9c8085ed (diff) | |
| parent | 55d2d0e60dda0983f5b88657bd6fcc58292f5c2d (diff) | |
| download | perlweeklychallenge-club-fc866a82637d13bec17761d45ddc51de9eb846be.tar.gz perlweeklychallenge-club-fc866a82637d13bec17761d45ddc51de9eb846be.tar.bz2 perlweeklychallenge-club-fc866a82637d13bec17761d45ddc51de9eb846be.zip | |
Merge pull request #1116 from aliciabielsa/branch-for-challenge-042
challenge-042
| -rw-r--r-- | challenge-042/alicia-bielsa/perl/ch-1.pl | 8 | ||||
| -rw-r--r-- | challenge-042/alicia-bielsa/perl/ch-2.pl | 40 |
2 files changed, 48 insertions, 0 deletions
diff --git a/challenge-042/alicia-bielsa/perl/ch-1.pl b/challenge-042/alicia-bielsa/perl/ch-1.pl new file mode 100644 index 0000000000..f26de832a1 --- /dev/null +++ b/challenge-042/alicia-bielsa/perl/ch-1.pl @@ -0,0 +1,8 @@ +use strict;
+use warnings;
+
+
+foreach my $i ( 1..50 ) {
+ printf("Decimal $i = Octal %o\n",$i);
+}
+
diff --git a/challenge-042/alicia-bielsa/perl/ch-2.pl b/challenge-042/alicia-bielsa/perl/ch-2.pl new file mode 100644 index 0000000000..e5b510a4ca --- /dev/null +++ b/challenge-042/alicia-bielsa/perl/ch-2.pl @@ -0,0 +1,40 @@ +use strict;
+use warnings;
+
+my $openingBracket = '(';
+my $closingBracket = ')';
+my @aBracketSymbols = ($openingBracket, $closingBracket);
+my $bracketString = '';
+
+my $lengthString = int(rand(10));
+foreach my $i (0..$lengthString){
+ $bracketString .= $aBracketSymbols[int(rand(2))];
+}
+
+my $balanceResult = isStringBalanced($bracketString);
+print "$bracketString - $balanceResult\n";
+
+sub isStringBalanced {
+ my $stringToCkeck = shift;
+ my $balanceCount = 0;
+ foreach my $bracket (split ('',$stringToCkeck)){
+ if ($bracket eq $closingBracket ){
+ if ( $balanceCount == 0){
+ return 'KO';
+ } else {
+ $balanceCount --;
+ }
+ } elsif ($bracket eq $openingBracket){
+ $balanceCount ++;
+ }
+ }
+ if ($balanceCount == 0 ){
+ return 'OK';
+ } else {
+ return 'KO';
+ }
+}
+
+
+
+exit 0;
\ No newline at end of file |