Long stairs: Difference between revisions
Added Wren
Thundergnat (talk | contribs) m (→{{header|Raku}}: slightly more correct) |
(Added Wren) |
||
Line 209:
609 2187 958
Average seconds: 2716.0197, Average steps: 13677.143</pre>
=={{header|Wren}}==
{{trans|C}}
{{libheader|Wren-fmt}}
<lang ecmascript>import "random" for Random
import "./fmt" for Fmt
var totalSecs = 0
var totalSteps = 0
var rand = Random.new()
System.print("Seconds steps behind steps ahead")
System.print("------- ------------ -----------")
for (trial in 1..10000) {
var sbeh = 0
var slen = 100
var secs = 0
while (sbeh < slen) {
sbeh = sbeh + 1
for (wiz in 1..5) {
if (rand.int(slen) < sbeh) sbeh = sbeh + 1
slen = slen + 1
}
secs = secs + 1
if (trial == 1 && secs > 599 && secs < 610) {
Fmt.print("$d $d $d", secs, sbeh, slen - sbeh)
}
}
totalSecs = totalSecs + secs
totalSteps = totalSteps + slen
}
Fmt.print("\nAverage secs taken: $h", totalSecs/10000)
Fmt.print("Average final length of staircase: $h", totalSteps/10000)</lang>
{{out}}
Sample run:
<pre>
Seconds steps behind steps ahead
------- ------------ -----------
600 2112 988
601 2115 990
602 2121 989
603 2126 989
604 2130 990
605 2135 990
606 2141 989
607 2146 989
608 2150 990
609 2155 990
Average secs taken: 2914.465
Average final length of staircase: 14672.325
</pre>
| |||