diff options
| author | aliciabielsa <aliciabielsa@gmail.com> | 2020-01-07 11:56:42 +0100 |
|---|---|---|
| committer | aliciabielsa <aliciabielsa@gmail.com> | 2020-01-07 11:56:42 +0100 |
| commit | 55d2d0e60dda0983f5b88657bd6fcc58292f5c2d (patch) | |
| tree | 1748a4aa1bd4d2e83d541898afa182e812101333 | |
| parent | e015238170e27c690e4f46646b6687f600fd0c59 (diff) | |
| download | perlweeklychallenge-club-55d2d0e60dda0983f5b88657bd6fcc58292f5c2d.tar.gz perlweeklychallenge-club-55d2d0e60dda0983f5b88657bd6fcc58292f5c2d.tar.bz2 perlweeklychallenge-club-55d2d0e60dda0983f5b88657bd6fcc58292f5c2d.zip | |
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 |