Data commit

Task/Bell-numbers/Sidef/bell-numbers-1.sidef

@@ -0,0 +1 @@
+say 15.of { .bell }

Task/Bell-numbers/Sidef/bell-numbers-2.sidef

@@ -0,0 +1 @@
+func bell(n) { sum(0..n, {|k| stirling2(n, k) }) }

Task/Bell-numbers/Sidef/bell-numbers-3.sidef

@@ -0,0 +1,17 @@
+func bell_numbers (n) {
+
+    var acc = []
+    var bell = [1]
+
+    (n-1).times {
+        acc.unshift(bell[-1])
+        acc.accumulate!
+        bell.push(acc[-1])
+    }
+
+    bell
+}
+
+var B = bell_numbers(50)
+say "The first 15 Bell numbers: #{B.first(15).join(', ')}"
+say "The fiftieth Bell number : #{B[50-1]}"

Task/Bell-numbers/Sidef/bell-numbers-4.sidef

@@ -0,0 +1,10 @@
+func aitken_array (n) {
+
+    var A = [1]
+
+    [[1]] + (n-1).of {
+        A = [A[-1], A...].accumulate
+    }
+}
+
+aitken_array(10).each { .say }

Task/Bell-numbers/Sidef/bell-numbers-5.sidef

@@ -0,0 +1,7 @@
+func A((0), (0))       { 1 }
+func A(n, (0))         { A(n-1, n-1) }
+func A(n, k) is cached { A(n, k-1) + A(n-1, k-1) }
+
+for n in (^10) {
+    say (0..n -> map{|k| A(n, k) })
+}