From e4bac44a308ae7984a9e40bf7ab4d0c8a16cda99 Mon Sep 17 00:00:00 2001
From: "Jaldhar H. Vyas" <jaldhar@braincells.com>
Date: Sun, 18 Apr 2021 17:14:54 -0400
Subject: Challenge 108 by Jaldhar H. Vyas

---
 challenge-108/jaldhar-h-vyas/blog.txt       |  1 +
 challenge-108/jaldhar-h-vyas/perl/ch-1.pl   |  6 ++++++
 challenge-108/jaldhar-h-vyas/perl/ch-2.pl   | 22 ++++++++++++++++++++++
 challenge-108/jaldhar-h-vyas/raku/ch-1.raku |  4 ++++
 challenge-108/jaldhar-h-vyas/raku/ch-2.raku | 21 +++++++++++++++++++++
 5 files changed, 54 insertions(+)
 create mode 100644 challenge-108/jaldhar-h-vyas/blog.txt
 create mode 100755 challenge-108/jaldhar-h-vyas/perl/ch-1.pl
 create mode 100755 challenge-108/jaldhar-h-vyas/perl/ch-2.pl
 create mode 100755 challenge-108/jaldhar-h-vyas/raku/ch-1.raku
 create mode 100755 challenge-108/jaldhar-h-vyas/raku/ch-2.raku

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
-- 
cgit