Merge pull request #3918 from jaldhar/challenge-108

Challenge 108 by Jaldhar H. Vyas

5 files changed, 54 insertions, 0 deletions

diff --git a/challenge-108/jaldhar-h-vyas/blog.txt b/challenge-108/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..0ce66298f5
--- /dev/null
+++ b/challenge-108/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2021/04/perl_weekly_challenge_week_108.html
diff --git a/challenge-108/jaldhar-h-vyas/perl/ch-1.pl b/challenge-108/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..b64a38a5e1
--- /dev/null
+++ b/challenge-108/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+use 5.020;
+use warnings;
+
+my $a;
+say \$a;
diff --git a/challenge-108/jaldhar-h-vyas/perl/ch-2.pl b/challenge-108/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..8524a5e4b0
--- /dev/null
+++ b/challenge-108/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use 5.020;
+use warnings;
+
+sub bellNumber {
+    my ($n) = @_;
+    my @bell;
+    $bell[0][0] = 1;
+    for my $i (1 .. $n) {
+        $bell[$i][0] = $bell[$i - 1][$i - 1];
+ 
+        for my $j (1 .. $i) {
+            $bell[$i][$j] = $bell[$i - 1][$j - 1] + $bell[$i][$j - 1];
+        }
+    }
+    return $bell[$n][0];
+}
+ 
+for my $n (0 .. 9) {
+    print bellNumber($n), q{ };
+}
+print "\n";
diff --git a/challenge-108/jaldhar-h-vyas/raku/ch-1.raku b/challenge-108/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..1ac3ca8e73
--- /dev/null
+++ b/challenge-108/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,4 @@
+#!/usr/bin/raku
+
+my $a;
+say $a.WHERE.base(16);
diff --git a/challenge-108/jaldhar-h-vyas/raku/ch-2.raku b/challenge-108/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..76439b1fc1
--- /dev/null
+++ b/challenge-108/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/raku
+
+sub bellNumber(Int $n) {
+    my @bell;
+    @bell[0][0] = 1;
+    for 1 .. $n -> $i {
+        @bell[$i][0] = @bell[$i - 1][$i - 1];
+ 
+        for 1 .. $i -> $j {
+            @bell[$i][$j] = @bell[$i - 1][$j - 1] + @bell[$i][$j - 1];
+        }
+    }
+    return @bell[$n][0];
+}
+ 
+sub MAIN() {
+    for 0 .. 9 -> $n {
+        print bellNumber($n), q{ };
+    }
+    print "\n";
+}
\ No newline at end of file