Data update

Task/Factorions/PascalABC.NET/factorions.pas

@@ -0,0 +1,22 @@
+##
+var fact := |1| * 12;
+for var i := 1 to 11 do fact[i] := i * fact[i - 1];
+
+for var b := 9 to 12 do
+begin
+  write('The factorions for base ', b:2, ' are: ');
+  for var i := 1 to 1_500_000 do
+  begin
+    var fact_sum := 0;
+    var j := i;
+    while j > 0 do
+    begin
+      var d := j mod b;
+      fact_sum += fact[d];
+      j := j div b;
+    end;
+    if fact_sum = i then
+      print(i)
+  end;
+  println;
+end;