When the California lottery started one of the local news guys said "Your chance of winning is about the same as flipping a coin the same way 25 times in a row" Hmmm How many flips might that be?
10 DELAY.1
20 DESTROY ALL
30 H=0 @ T=0 @ R=0 @ M=0 @ N = RND > RND
40 'NEQ':R=0 @ X = FLAG(0,NOT FLAG(0))
50 'THROW':L=N @ N = RND > RND
60 IF N THEN H=H+1 ELSE T=T+1
70 IF N<>L THEN GOTO 'NEQ'
80 R=R+1 @ DISP M;H+T;INT(100*R/M)
90 IF R>M THEN M=R @ DISP M;H+T
100 IF M<25 THEN GOTO 'THROW'
110 DISP H/T;H+T;H;T @ STOP
You will probably need fresh batteries for this one :^) I have not been able to let it run to completion yet.. I keep needing my 71 for other things.
I am accepting ideas for stuff to write...
Edited: 24 Sept 2007, 3:04 p.m.