From 93385e159619a57b2dbf6049d887f6697af84be5 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 6 Jan 2020 15:21:05 +0000 Subject: - Added solutions by Kivanc Yazan. --- challenge-042/kivanc-yazan/perl/ch-1.pl | 8 ++++++++ challenge-042/kivanc-yazan/perl/ch-2.pl | 27 +++++++++++++++++++++++++++ challenge-042/kivanc-yazan/perl5/ch-1.pl | 8 -------- challenge-042/kivanc-yazan/perl5/ch-2.pl | 27 --------------------------- 4 files changed, 35 insertions(+), 35 deletions(-) create mode 100755 challenge-042/kivanc-yazan/perl/ch-1.pl create mode 100755 challenge-042/kivanc-yazan/perl/ch-2.pl delete mode 100755 challenge-042/kivanc-yazan/perl5/ch-1.pl delete mode 100755 challenge-042/kivanc-yazan/perl5/ch-2.pl (limited to 'challenge-042') diff --git a/challenge-042/kivanc-yazan/perl/ch-1.pl b/challenge-042/kivanc-yazan/perl/ch-1.pl new file mode 100755 index 0000000000..18923e53e8 --- /dev/null +++ b/challenge-042/kivanc-yazan/perl/ch-1.pl @@ -0,0 +1,8 @@ +#!/usr/bin/env perl +use warnings; +use strict; + +# Write a script to print decimal number 0 to 50 in Octal Number System. +for my $i (0..50){ + printf "Decimal %d = Octal %o\n", $i, $i; +} diff --git a/challenge-042/kivanc-yazan/perl/ch-2.pl b/challenge-042/kivanc-yazan/perl/ch-2.pl new file mode 100755 index 0000000000..ddd8376f0e --- /dev/null +++ b/challenge-042/kivanc-yazan/perl/ch-2.pl @@ -0,0 +1,27 @@ +#!/usr/bin/env perl +use warnings; +use strict; +use List::Util qw/shuffle/; + +# Write a script to generate a string with random number of ( and ) brackets. +# Then make the script validate the string if it has balanced brackets. + +# Let's make sure we have equal number of ( and ) to increase chances +my $count = rand(10)+1; # Could be as low as 1, as high as 10 +my @chars = ( '(', ')' ) x $count; +@chars = shuffle(@chars); +print join('',@chars)."\n"; + +# Walk through to validate +my $current_open = 0; +for my $char (@chars){ + if ($char eq '('){ + $current_open++; + } elsif ($current_open == 0){ + print "Not Valid\n"; + exit; + } else { + $current_open--; + } +} +print "Valid\n"; diff --git a/challenge-042/kivanc-yazan/perl5/ch-1.pl b/challenge-042/kivanc-yazan/perl5/ch-1.pl deleted file mode 100755 index 18923e53e8..0000000000 --- a/challenge-042/kivanc-yazan/perl5/ch-1.pl +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env perl -use warnings; -use strict; - -# Write a script to print decimal number 0 to 50 in Octal Number System. -for my $i (0..50){ - printf "Decimal %d = Octal %o\n", $i, $i; -} diff --git a/challenge-042/kivanc-yazan/perl5/ch-2.pl b/challenge-042/kivanc-yazan/perl5/ch-2.pl deleted file mode 100755 index ddd8376f0e..0000000000 --- a/challenge-042/kivanc-yazan/perl5/ch-2.pl +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/env perl -use warnings; -use strict; -use List::Util qw/shuffle/; - -# Write a script to generate a string with random number of ( and ) brackets. -# Then make the script validate the string if it has balanced brackets. - -# Let's make sure we have equal number of ( and ) to increase chances -my $count = rand(10)+1; # Could be as low as 1, as high as 10 -my @chars = ( '(', ')' ) x $count; -@chars = shuffle(@chars); -print join('',@chars)."\n"; - -# Walk through to validate -my $current_open = 0; -for my $char (@chars){ - if ($char eq '('){ - $current_open++; - } elsif ($current_open == 0){ - print "Not Valid\n"; - exit; - } else { - $current_open--; - } -} -print "Valid\n"; -- cgit