Penney's game: Difference between revisions
Content added Content deleted
Line 159: | Line 159: | ||
#include <jambo.h> |
#include <jambo.h> |
||
#define |
#define Getanuppercasecharinto(_X_) Getchar(_X_),Let( _X_ := Ucase(_X_) ) |
||
#define Isnotvalidin(_X_) Not( Occurs in (_X_) ) |
#define Isnotvalidin(_X_) Not( Occurs in (_X_) ) |
||
#define NOELIGEPCDESPUESDETI 0 |
#define NOELIGEPCDESPUESDETI 0 |
||
#define ELIGEPCDESPUESDETI 1 |
#define ELIGEPCDESPUESDETI 1 |
||
Main |
Main |
||
Line 229: | Line 229: | ||
i=largo, c=0 |
i=largo, c=0 |
||
Loop |
Loop |
||
Get |
Get an uppercase char into 'c' |
||
Continue if ( var(c) Is not valid in ("HT") ) |
Continue if ( var(c) Is not valid in ("HT") ) |
||
Let( P:=Cat(P,c) ) |
Let( P:=Cat(P,c) ) |