Penney's game: Difference between revisions

m
Line 159:
#include <jambo.h>
 
#define Getauppercharinto(_X_) Getchar(_X_),Let( _X_ := Ucase(_X_) )
#define NOELIGEPCDESPUESDETI 0
#define ELIGEPCDESPUESDETI 1
Line 227 ⟶ 228:
i=largo, c=0
Loop
Getchar(c),Get Let(a cupper :=char Ucase(into 'c) )'
If ( var(c) Not( Occurs in ("HT") ))
Let ( c := Get if( Geq( Rand(1), 0.5), "T", "H" ) )
543

edits