Initial data commit

Task/Factorions/Sidef/factorions.sidef

@@ -0,0 +1,31 @@
+func max_power(b = 10) {
+    var m = 1
+    var f = (b-1)!
+    while (m*f >= b**(m-1)) {
+        m += 1
+    }
+    return m-1
+}
+
+func factorions(b = 10) {
+
+    var result = []
+    var digits = @^b
+    var fact = digits.map { _! }
+
+    for k in (1 .. max_power(b)) {
+        digits.combinations_with_repetition(k, {|*comb|
+            var n = comb.sum_by { fact[_] }
+            if (n.digits(b).sort == comb) {
+                result << n
+            }
+        })
+    }
+
+    return result
+}
+
+for b in (2..12) {
+    var r = factorions(b)
+    say "Base #{'%2d' % b} factorions: #{r}"
+}