From 054e63fc25f96135ba470c06757d516c9c8085ed Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Tue, 7 Jan 2020 13:42:42 +0000 Subject: - Added solutions by Roger Bell_West. --- challenge-042/roger-bell-west/ch-1.p6 | 5 ----- challenge-042/roger-bell-west/ch-1.pl | 8 -------- challenge-042/roger-bell-west/ch-2.p6 | 18 ------------------ challenge-042/roger-bell-west/ch-2.pl | 20 -------------------- challenge-042/roger-bell-west/perl/ch-1.pl | 8 ++++++++ challenge-042/roger-bell-west/perl/ch-2.pl | 20 ++++++++++++++++++++ challenge-042/roger-bell-west/raku/ch-1.p6 | 5 +++++ challenge-042/roger-bell-west/raku/ch-2.p6 | 18 ++++++++++++++++++ 8 files changed, 51 insertions(+), 51 deletions(-) delete mode 100755 challenge-042/roger-bell-west/ch-1.p6 delete mode 100755 challenge-042/roger-bell-west/ch-1.pl delete mode 100755 challenge-042/roger-bell-west/ch-2.p6 delete mode 100755 challenge-042/roger-bell-west/ch-2.pl create mode 100755 challenge-042/roger-bell-west/perl/ch-1.pl create mode 100755 challenge-042/roger-bell-west/perl/ch-2.pl create mode 100755 challenge-042/roger-bell-west/raku/ch-1.p6 create mode 100755 challenge-042/roger-bell-west/raku/ch-2.p6 (limited to 'challenge-042') diff --git a/challenge-042/roger-bell-west/ch-1.p6 b/challenge-042/roger-bell-west/ch-1.p6 deleted file mode 100755 index dea851fd19..0000000000 --- a/challenge-042/roger-bell-west/ch-1.p6 +++ /dev/null @@ -1,5 +0,0 @@ -#! /usr/bin/perl6 - -for (0..50) { - printf('Decimal %d = Octal %o' ~ "\n",$_,$_); -} diff --git a/challenge-042/roger-bell-west/ch-1.pl b/challenge-042/roger-bell-west/ch-1.pl deleted file mode 100755 index 22945f8f4c..0000000000 --- a/challenge-042/roger-bell-west/ch-1.pl +++ /dev/null @@ -1,8 +0,0 @@ -#! /usr/bin/perl - -use strict; -use warnings; - -foreach (0..50) { - printf('Decimal %d = Octal %o'."\n",$_,$_); -} diff --git a/challenge-042/roger-bell-west/ch-2.p6 b/challenge-042/roger-bell-west/ch-2.p6 deleted file mode 100755 index 9bf4a46979..0000000000 --- a/challenge-042/roger-bell-west/ch-2.p6 +++ /dev/null @@ -1,18 +0,0 @@ -#! /usr/bin/perl6 - -my $s=''; -my @c=('(',')'); -for (-1 .. 2*(floor(rand*4))) { - $s ~= @c[floor(rand*2)]; -} - -print "$s\n"; - -while ($s ~~ s:g/\(\)//) { -} - -if ($s) { - say "Invalid: $s"; -} else { - say "Valid."; -} diff --git a/challenge-042/roger-bell-west/ch-2.pl b/challenge-042/roger-bell-west/ch-2.pl deleted file mode 100755 index 628f344033..0000000000 --- a/challenge-042/roger-bell-west/ch-2.pl +++ /dev/null @@ -1,20 +0,0 @@ -#! /usr/bin/perl - -use strict; -use warnings; - -my $s=''; -foreach (-1..2*(int(rand()*4))) { - $s .= (rand()<0.5)?'(':')'; -} - -print "$s\n"; - -while ($s =~ s/\(\)//g) { -} - -if ($s) { - print "Invalid: $s\n"; -} else { - print "Valid.\n"; -} diff --git a/challenge-042/roger-bell-west/perl/ch-1.pl b/challenge-042/roger-bell-west/perl/ch-1.pl new file mode 100755 index 0000000000..22945f8f4c --- /dev/null +++ b/challenge-042/roger-bell-west/perl/ch-1.pl @@ -0,0 +1,8 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +foreach (0..50) { + printf('Decimal %d = Octal %o'."\n",$_,$_); +} diff --git a/challenge-042/roger-bell-west/perl/ch-2.pl b/challenge-042/roger-bell-west/perl/ch-2.pl new file mode 100755 index 0000000000..628f344033 --- /dev/null +++ b/challenge-042/roger-bell-west/perl/ch-2.pl @@ -0,0 +1,20 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +my $s=''; +foreach (-1..2*(int(rand()*4))) { + $s .= (rand()<0.5)?'(':')'; +} + +print "$s\n"; + +while ($s =~ s/\(\)//g) { +} + +if ($s) { + print "Invalid: $s\n"; +} else { + print "Valid.\n"; +} diff --git a/challenge-042/roger-bell-west/raku/ch-1.p6 b/challenge-042/roger-bell-west/raku/ch-1.p6 new file mode 100755 index 0000000000..dea851fd19 --- /dev/null +++ b/challenge-042/roger-bell-west/raku/ch-1.p6 @@ -0,0 +1,5 @@ +#! /usr/bin/perl6 + +for (0..50) { + printf('Decimal %d = Octal %o' ~ "\n",$_,$_); +} diff --git a/challenge-042/roger-bell-west/raku/ch-2.p6 b/challenge-042/roger-bell-west/raku/ch-2.p6 new file mode 100755 index 0000000000..9bf4a46979 --- /dev/null +++ b/challenge-042/roger-bell-west/raku/ch-2.p6 @@ -0,0 +1,18 @@ +#! /usr/bin/perl6 + +my $s=''; +my @c=('(',')'); +for (-1 .. 2*(floor(rand*4))) { + $s ~= @c[floor(rand*2)]; +} + +print "$s\n"; + +while ($s ~~ s:g/\(\)//) { +} + +if ($s) { + say "Invalid: $s"; +} else { + say "Valid."; +} -- cgit