Penney's game: Difference between revisions

Content added Content deleted
Line 159: Line 159:
#include <jambo.h>
#include <jambo.h>


#define Getauppercharinto(_X_) Getchar(_X_),Let( _X_ := Ucase(_X_) )
#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 a upper char into 'c'
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) )