25 lines
499 B
Plaintext
25 lines
499 B
Plaintext
dim h( 1000000)
|
|
|
|
for i =1 to 20
|
|
print hamming( i); " ";
|
|
next i
|
|
|
|
print
|
|
print "H( 1691)", hamming( 1691)
|
|
print "H( 1000000)", hamming( 1000000)
|
|
|
|
end
|
|
|
|
function hamming( limit)
|
|
h( 0) =1
|
|
x2 =2: x3 =3: x5 =5
|
|
i =0: j =0: k =0
|
|
for n =1 to limit
|
|
h( n) = min( x2, min( x3, x5))
|
|
if x2 = h( n) then i = i +1: x2 =2 *h( i)
|
|
if x3 = h( n) then j = j +1: x3 =3 *h( j)
|
|
if x5 = h( n) then k = k +1: x5 =5 *h( k)
|
|
next n
|
|
hamming =h( limit -1)
|
|
end function
|