Disarium numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,382: / Line 1,382: @@
 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 2646798
 </pre>
+=={{header|EasyLang}}==
+<syntaxhighlight lang=easylang>
+func disarium x .
+   h = x
+   while h > 0
+      d[] &= h mod 10
+      h = h div 10
+   .
+   for i = 1 to len d[]
+      h += pow d[i] (len d[] - i + 1)
+   .
+   return if h = x
+.
+while count < 19
+   if disarium n = 1
+      count += 1
+      print n
+   .
+   n += 1
+.
+</syntaxhighlight>
 =={{header|FOCAL}}==