Penney's game: Difference between revisions

m
Line 229:
Loop
Get a upper char into 'c'
IfContinue if ( var(c) Not( Occurs in ("HT") ))
Let ( c := Get if( Geq( Rand(1), 0.5), "T", "H" ) )
End If
Let( P:=Cat(P,c) )
Loccol(13), Printnl(P)
543

edits