24 lines
613 B
Text
24 lines
613 B
Text
var (n, sums, ts, mc) = (100, Set(2), [], [1])
|
|
var st = Time.micro
|
|
for i in (1 ..^ n) {
|
|
for j in (mc[i-1]+1 .. Inf) {
|
|
mc[i] = j
|
|
for k in (0 .. i) {
|
|
var sum = mc[k]+j
|
|
if (sums.has(sum)) {
|
|
ts.clear
|
|
break
|
|
}
|
|
ts << sum
|
|
}
|
|
if (ts.len > 0) {
|
|
sums |= Set(ts...)
|
|
break
|
|
}
|
|
}
|
|
}
|
|
var et = (Time.micro - st)
|
|
var s = " of the Mian-Chowla sequence are:\n"
|
|
say "The first 30 terms#{s}#{mc.first(30).join(' ')}\n"
|
|
say "Terms 91 to 100#{s}#{mc.slice(90).first(10).join(' ')}\n"
|
|
say "Computation time was #{et} seconds."
|