26 lines
602 B
Text
26 lines
602 B
Text
|
F mertens(count)
|
|||
|
|
‘Generate Mertens numbers’
|
|||
|
|
V m = [-1, 1]
|
|||
|
|
L(n) 2 .. count
|
|||
|
|
m.append(1)
|
|||
|
|
L(k) 2 .. n
|
|||
|
|
m[n] -= m[n I/ k]
|
|||
|
|
R m
|
|||
|
|
|
|||
|
|
V ms = mertens(1000)
|
|||
|
|
|
|||
|
|
print(‘The first 99 Mertens numbers are:’)
|
|||
|
|
print(‘ ’, end' ‘ ’)
|
|||
|
|
V col = 1
|
|||
|
|
L(n) ms[1.<100]
|
|||
|
|
print(‘#2’.format(n), end' ‘ ’)
|
|||
|
|
col++
|
|||
|
|
I col == 10
|
|||
|
|
print()
|
|||
|
|
col = 0
|
|||
|
|
|
|||
|
|
V zeroes = sum(ms.map(x -> Int(x == 0)))
|
|||
|
|
V crosses = sum(zip(ms, ms[1..]).map((a, b) -> Int(a != 0 & b == 0)))
|
|||
|
|
print(‘M(N) equals zero #. times.’.format(zeroes))
|
|||
|
|
print(‘M(N) crosses zero #. times.’.format(crosses))
|