Penney's game: Difference between revisions
Content added Content deleted
Line 160: | Line 160: | ||
#define Getauppercharinto(_X_) Getchar(_X_),Let( _X_ := Ucase(_X_) ) |
#define Getauppercharinto(_X_) Getchar(_X_),Let( _X_ := Ucase(_X_) ) |
||
#define Isnotvalidin(_X_) Not( Occurs in (_X_) ) |
|||
#define NOELIGEPCDESPUESDETI 0 |
#define NOELIGEPCDESPUESDETI 0 |
||
#define ELIGEPCDESPUESDETI 1 |
#define ELIGEPCDESPUESDETI 1 |
||
Line 229: | Line 230: | ||
Loop |
Loop |
||
Get a upper char into 'c' |
Get a upper char into 'c' |
||
Continue if ( var(c) |
Continue if ( var(c) Is not valid in ("HT") ) |
||
Let( P:=Cat(P,c) ) |
Let( P:=Cat(P,c) ) |
||
Loccol(13), Printnl(P) |
Loccol(13), Printnl(P) |