Merge pull request #3892 from choroba/ech108

Add solutions to 108: Locate Memory & Bell Numbers by E. Choroba

2 files changed, 37 insertions, 0 deletions

diff --git a/challenge-108/e-choroba/perl/ch-1.pl b/challenge-108/e-choroba/perl/ch-1.pl
new file mode 100755
index 0000000000..65489be722
--- /dev/null
+++ b/challenge-108/e-choroba/perl/ch-1.pl
@@ -0,0 +1,10 @@
+#! /usr/bin/python3
+from ctypes import addressof
+
+var="python3"
+print(id(var))
+
+# Sawyer X has resigned.
+# https://perl.topicbox.com/groups/perl-core/T7a4f1bf9e069641f
+# What does it mean for Perl?
+# I started learning Python.
diff --git a/challenge-108/e-choroba/perl/ch-2.pl b/challenge-108/e-choroba/perl/ch-2.pl
new file mode 100755
index 0000000000..ef0937fbd1
--- /dev/null
+++ b/challenge-108/e-choroba/perl/ch-2.pl
@@ -0,0 +1,27 @@
+#! /usr/bin/python3
+def bell(x):
+    aitken = [[1], []]
+    row=1
+    while row <= x:
+        aitken[1].append(aitken[0][-1])
+        for i in range(len(aitken[0])):
+            aitken[1].append(aitken[0][i] + aitken[1][i])
+        aitken = [aitken[1], []]
+        row += 1
+    return aitken[0][0]
+
+assert bell(0) == 1
+assert bell(1) == 1
+assert bell(2) == 2
+assert bell(3) == 5
+assert bell(4) == 15
+assert bell(5) == 52
+assert bell(6) == 203
+assert bell(7) == 877
+assert bell(8) == 4140
+print("ok")
+
+# Sawyer X has resigned.
+# https://perl.topicbox.com/groups/perl-core/T7a4f1bf9e069641f
+# What does it mean for Perl?
+# I started learning Python.