From 6294fb933ceb1b5af0822c2c0bd66e34f31fecca Mon Sep 17 00:00:00 2001 From: "E. Choroba" Date: Tue, 13 Apr 2021 21:12:49 +0200 Subject: Add solutions to 108: Locate Memory & Bell Numbers by E. Choroba --- challenge-108/e-choroba/perl/ch-1.pl | 10 ++++++++++ challenge-108/e-choroba/perl/ch-2.pl | 27 +++++++++++++++++++++++++++ 2 files changed, 37 insertions(+) create mode 100755 challenge-108/e-choroba/perl/ch-1.pl create mode 100755 challenge-108/e-choroba/perl/ch-2.pl 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. -- cgit