Data update

Task/Super-d-numbers/FreeBASIC/super-d-numbers.basic

@@ -0,0 +1,17 @@
+Dim rd(7) As String = {"22", "333", "4444", "55555", "666666", "7777777", "88888888", "999999999"}
+
+For n As Integer = 2 To 9
+    Dim cont As Integer = 0
+    Dim j As Uinteger = 3
+
+    Print Using !"\nFirst 10 super-# numbers:"; n
+    Do
+        Dim k As Ulongint = n * (j ^ n)
+        Dim ix As Uinteger = Instr(Str(k), rd(n - 2))
+        If ix > 0 Then
+            cont += 1
+            Print j; " " ;
+        End If
+        j += 1
+    Loop Until cont = 10
+Next n

Task/Super-d-numbers/Wren/super-d-numbers-1.wren

@@ -1,5 +1,5 @@
-import "/big" for BigInt
-import "/fmt" for Fmt
+import "./big" for BigInt
+import "./fmt" for Fmt
 
 var start = System.clock
 var rd = ["22", "333", "4444", "55555", "666666", "7777777", "88888888"]

Task/Super-d-numbers/Wren/super-d-numbers-2.wren

@@ -1,4 +1,4 @@
-/* super-d_numbers_gmp.wren */
+/* Super-d_numbers_2.wren */
 
 import "./gmp" for Mpz
 import "./fmt" for Fmt