26 lines
532 B
Text
26 lines
532 B
Text
fastfunc humble i .
|
|
if i <= 1 : return 1
|
|
if i mod 2 = 0 : return humble (i / 2)
|
|
if i mod 3 = 0 : return humble (i / 3)
|
|
if i mod 5 = 0 : return humble (i / 5)
|
|
if i mod 7 = 0 : return humble (i / 7)
|
|
return 0
|
|
.
|
|
fastfunc next_humble n .
|
|
repeat
|
|
n += 1
|
|
until humble n = 1
|
|
.
|
|
return n
|
|
.
|
|
len arr[] 9
|
|
while cnt < 5193
|
|
n = next_humble n
|
|
idx = floor (log n 10 + 1)
|
|
arr[idx] += 1
|
|
cnt += 1
|
|
if cnt <= 50 : write n & " "
|
|
.
|
|
print ""
|
|
print ""
|
|
for i to 9 : print arr[i] & " with " & i & " digits"
|