Hofstadter-Conway $10,000 sequence: Difference between revisions
Added Wren
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Added Wren) |
||
Line 3,272:
Maximum in range 524288 to 1048576 occurs at 722589: 0,533779
Mallows number is 1489 </pre>
=={{header|Wren}}==
{{trans|Kotlin}}
{{libheader|Wren-fmt}}
<lang ecmascript>import "/fmt" for Fmt
var limit = 1<<20 + 1
var a = List.filled(limit, 0)
a[1] = 1
a[2] = 1
for (n in 3...limit) {
var p = a[n-1]
a[n] = a[p] + a[n-p]
}
System.print(" Range Maximum")
System.print("---------------- --------")
var pow2 = 1
var p = 1
var max = a[1]
for (n in 2...limit) {
var r = a[n] / n
if (r > max) max = r
if (n == pow2 * 2) {
Fmt.print("2 ^ $2d to 2 ^ $2d $f", p - 1, p, max)
pow2 = pow2 * 2
p = p + 1
max = r
}
}
var prize = 0
for (n in limit-1..1) {
if (a[n]/n >= 0.55) {
prize = n
break
}
}
System.print("\nMallows' number = %(prize)")</lang>
{{out}}
<pre>
Range Maximum
---------------- --------
2 ^ 0 to 2 ^ 1 1.000000
2 ^ 1 to 2 ^ 2 0.666667
2 ^ 2 to 2 ^ 3 0.666667
2 ^ 3 to 2 ^ 4 0.636364
2 ^ 4 to 2 ^ 5 0.608696
2 ^ 5 to 2 ^ 6 0.590909
2 ^ 6 to 2 ^ 7 0.576087
2 ^ 7 to 2 ^ 8 0.567416
2 ^ 8 to 2 ^ 9 0.559459
2 ^ 9 to 2 ^ 10 0.554937
2 ^ 10 to 2 ^ 11 0.550101
2 ^ 11 to 2 ^ 12 0.547463
2 ^ 12 to 2 ^ 13 0.544145
2 ^ 13 to 2 ^ 14 0.542443
2 ^ 14 to 2 ^ 15 0.540071
2 ^ 15 to 2 ^ 16 0.538784
2 ^ 16 to 2 ^ 17 0.537044
2 ^ 17 to 2 ^ 18 0.536020
2 ^ 18 to 2 ^ 19 0.534645
2 ^ 19 to 2 ^ 20 0.533779
Mallows' number = 1489
</pre>
=={{header|X86 Assembly}}==
| |||