diff options
Diffstat (limited to '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 |