Data update

Task/Disarium-numbers/EasyLang/disarium-numbers.easy

@@ -1,18 +1,21 @@
-func disarium x .
-   h = x
-   while h > 0
-      d[] &= h mod 10
-      h = h div 10
+fastfunc disarium n .
+   n0 = n
+   ndig = floor log n 10 + 1
+   for i = ndig downto 1
+      h += pow (n mod 10) i
+      n = n div 10
    .
-   for i = 1 to len d[]
-      h += pow d[i] (len d[] - i + 1)
-   .
-   return if h = x
+   if h = n0 : return 1
 .
-while count < 19
-   if disarium n = 1
-      count += 1
-      print n
+fastfunc nextdisarium n .
+   repeat
+      n += 1
+      until disarium n = 1
    .
-   n += 1
+   return n
 .
+for i to 18
+   n = nextdisarium n
+   write n & " "
+.
+print ""