Data commit

Task/Kaprekar-numbers/PureBasic/kaprekar-numbers.basic

@@ -0,0 +1,27 @@
+Procedure Kaprekar(n.i)
+  nn.q  = n*n
+  tens.q= 1
+  While tens<nn: tens*10: Wend
+  Repeat
+    tens/10
+    If tens<=n: Break: EndIf
+    If nn-n = (nn/tens) * (tens-1)
+      ProcedureReturn #True
+    EndIf
+  ForEver
+  If n=1
+    ProcedureReturn #True
+  EndIf
+EndProcedure
+
+If OpenConsole()
+  For i=1 To 1000000
+    If Kaprekar(i)
+      cnt+1
+      PrintN(RSet(Str(cnt),3)+":"+RSet(Str(i),8))
+    EndIf
+  Next
+  ;
+  Print("Press ENTER to exit")
+  Input()
+EndIf