#!/usr/bin/perl

use strict;
use warnings;


print "com quantas moedas vamos jogar?";

my ($VCquanti, $EUquanti) = <STDIN>;


# Ich kann mir nicht vorstellen, dass "$var /= 0" zu irgendeinem Ergebnis führt.
# Das heißt nämlich $var = $var / 0. Jede Programmiersprache wird einen Fehler
# ausspucken, wenn man durch Null teilen will. Früher sind Programme deswegen
# sogar abgestürzt.;-)

while( ($EUquanti, $VCquanti) != 0 ) {

    print "quantas moedas vc tem na mao q vale?";

    my $VC = <STDIN>;

     if($VC /= 1..$VCquanti) {
    
        print "o que?, tenque ser um valor de 0 a $VCquanti";
        exit(1);
    }
    my $EU     = int(rand(3));
    my $EUgues = int(rand($EU + $VC) + $EU);

    print "enatao eu acho q no total sao $EUgues";

    if($EUgues == $EU + $VC) {
    
        $EUquanti--;

        print "ganhei agora so tenho $EUquanti moedas";

    } else {
    
        print "erei sua vez, quantas moedas temos no total?";

        my $VCgues = <STDIN>;

        if($VCgues == $EU + $VC) {
        
            $VCquanti--;

            print "ahh nao vc ganhou, agora so tem $VCquanti moedas";

        } else {
        
            print "ningem acertou nesse turno, vamos pro prosimo";
        }
    }
}

print "haha ganhei o jogo e vc ainda tem $VCquanti moedas na mao" if($EUquanti == 0);
print "an nao vc ganhou o jogo eu morri com $EUquanti moedas na mao" if($VCquanti == 0);

exit(0);