Spoof game: Difference between revisions

m (→‎{{header|Ring}}: added zkl header)
(→‎{{header|zkl}}: added code)
Line 88:
 
=={{header|zkl}}==
<lang zkl>do(getNum("How many games you want? ")){
<lang zkl></lang>
reg mypot,yourpot,myguess,yourguess;
<lang zkl></lang>
do{ mypot,myguess = (0).random(4),(0).random(7); // 0..3, 0..6
}while(mypot + 3 >= myguess);
println("I have put my pot and guess.");
while(True){
yourpot =getNum("Your pot? ");
yourguess=getNum("Your guess? ");
if(((0<=yourpot<=6) and (0<=yourguess<=6)) and
yourpot + 3 >= yourguess) break;
println("Bad input! Try again");
}
println("My put is: ",mypot, ". My guess is: ",myguess);
pot:=mypot + yourpot;
if(myguess==pot==yourguess) println("Draw!\n");
else if(myguess==pot) println("I won!\n");
else if(yourguess==pot) println("You won!\n");
else println("No winner!\n");
}
fcn getNum(msg){
try{ return(ask(msg).strip().toInt()) }
catch{ println("ack"); return(self.fcn(msg)) } // tail recursion
<lang zkl>}</lang>
{{out}}
<pre style="height:35ex">
<pre>
How many games you want? 4
I have put my pot and guess.
Your pot? 2
Your guess? 6
Bad input! Try again
Your pot? 3
Your guess? 4
My put is: 1. My guess is: 6
You won!
 
I have put my pot and guess.
Your pot? 2
Your guess? 0
My put is: 0. My guess is: 4
No winner!
 
I have put my pot and guess.
Your pot? 3
Your guess? 2
My put is: 0. My guess is: 5
No winner!
 
I have put my pot and guess.
Your pot? 5
Your guess? 4
My put is: 0. My guess is: 5
I won!
</pre>
Anonymous user