User:Thebigh/mysandbox: Difference between revisions
MOAR
(more) |
(MOAR) |
||
Line 143:
Average time taken: 2921.9457 seconds.
Average final staircase length: 14709.7285 steps.
</pre>
==header|GW-BASIC==
<lang gwbasic>
10 RANDOMIZE TIMER
20 TIMET = 0 : STEPST = 0
30 FOR TRIAL = 1 TO 10000
40 TIME = 0
50 SBEH = 0
60 SLEN = 100
70 SBEH = SBEH + 1
80 IF SBEH >= SLEN THEN GOTO 160
90 FOR WIZ = 1 TO 5
100 IF INT(RND*SLEN)<SBEH THEN SBEH = SBEH + 1
110 SLEN = SLEN + 1
120 NEXT WIZ
130 TIME = TIME + 1
140 IF TRIAL = 1 AND 599<TIME AND TIME <610 THEN PRINT TIME, SBEH, SLEN-SBEH
150 GOTO 70
160 TIMET = TIMET+TIME+1
170 STEPST = STEPST + SLEN
180 NEXT TRIAL
190 PRINT TIMET/10000
200 PRINT STEPST/10000</lang>
{{out}}<pre>
600 2274 826
601 2279 826
602 2284 826
603 2289 826
604 2294 826
605 2299 826
606 2305 825
607 2309 826
608 2313 827
609 2319 826
2960.879
14899.39
</pre>
| |||