Added ch-2 pl and raku

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-050/ruben-westerberg/perl/ch-2.pl b/challenge-050/ruben-westerberg/perl/ch-2.pl
new file mode 100755
index 0000000000..6accb56608
--- /dev/null
+++ b/challenge-050/ruben-westerberg/perl/ch-2.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+#noble integers
+use warnings;
+use strict;
+
+my $size=$ARGV[0]//3;
+my @list= sort {$a > $b} map {int rand 50} 1..$size; 
+#@list=sort { $a > $b} (2,1,6,3);
+print "Sorted Input list: ",
+join(",", @list),"\n";
+print "Noble Integers found: ", join ", ", @list[grep { @list-$_-1 == $list[$_] } 0..@list-1];
diff --git a/challenge-050/ruben-westerberg/raku/ch-2.raku b/challenge-050/ruben-westerberg/raku/ch-2.raku
new file mode 100755
index 0000000000..a74703377a
--- /dev/null
+++ b/challenge-050/ruben-westerberg/raku/ch-2.raku
@@ -0,0 +1,6 @@
+#!/usr/bin/env raku
+#noble integer
+my $size=@*ARGS[0]//3;
+my @list=(50.rand.Int+1 xx $size).sort;
+put "Sorted input list: @list[]";
+put "Noble Integers found: ",@list[(^@list).grep({(@list-$_-1) == @list[$_]})];