Data commit

Task/Self-describing-numbers/Sidef/self-describing-numbers-1.sidef

@@ -0,0 +1,16 @@
+func sdn(Number n) {
+    var b = [0]*n.len
+    var a = n.digits.flip
+    a.each { |i| b[i] := 0 ++ }
+    a == b
+}
+
+var values = [1210, 2020, 21200, 3211000,
+42101000, 521001000, 6210001000, 27, 115508]
+
+values.each { |test|
+    say "#{test} is #{sdn(test) ? '' : 'NOT ' }a self describing number."
+}
+
+say "\nSelf-descriptive numbers less than 1e5 (in base 10):"
+^1e5 -> each { |i| say i if sdn(i) }

Task/Self-describing-numbers/Sidef/self-describing-numbers-2.sidef

@@ -0,0 +1,4 @@
+for b in (7 .. 36) {
+    var n = ((b-4) * b**(b-1) + 2*(b**(b-2)) + b**(b-3) + b**3 -> base(b))
+    say "base #{'%2d' % b}: #{n}"
+}