Kaprekar numbers: Difference between revisions

=={{header|FutureBasic}}==

<syntaxhighlight lang="futurebasic">

local fn kaprekar( n as NSInteger ) as BOOL

NSInteger s = n^2

double t = 10^(int(log(s)) + 1)

BOOL result = NO

do

t = t / 10

if t <= n then break

if s - n == int(s/t)*(t-1) then result = YES : exit fn

until ( t <= n )

result = ( n = YES )

end fn = result

local fn DoIt

NSInteger i

float n = 0

for i = 1 to 1000000

if ( fn kaprekar(i) )

n++

if i < 1000000 then printf @"%2.f : %ld", n, i

end if

next

print "Kaprekar numbers under 1,000,000 = "; n

end fn

fn DoIt

HandleEvents

</syntaxhighlight>

{{output}}

<pre>

1 : 1

2 : 9

3 : 45

4 : 55

5 : 99

6 : 297

7 : 703

8 : 999

9 : 2223

10 : 2728

11 : 4879

12 : 4950

13 : 5050

14 : 5292

15 : 7272

16 : 7777

17 : 9999

18 : 17344

19 : 22222

20 : 38962

21 : 77778

22 : 82656

23 : 95121

24 : 99999

25 : 142857

26 : 148149

27 : 181819

28 : 187110

29 : 208495

30 : 318682

31 : 329967

32 : 351352

33 : 356643

34 : 390313

35 : 461539

36 : 466830

37 : 499500

38 : 500500

39 : 533170

40 : 538461

41 : 609687

42 : 627615

43 : 643357

44 : 648648

45 : 670033

46 : 681318

47 : 791505

48 : 812890

49 : 818181

50 : 851851

51 : 857143

52 : 961038

53 : 994708

54 : 999999

Kaprekar numbers under 1,000,000 = �54

</pre>