use strict;

my $llista_de_la_compra;
my @llista_de_la_compra;
my $cosa;
my $resposta;
my ($comprats, $no_comprats);

print "digues la llista de la compra (separada per comes!): ";
$llista_de_la_compra = <STDIN>;
chomp($llista_de_la_compra);

@llista_de_la_compra = split ",", $llista_de_la_compra;

foreach $cosa ( @llista_de_la_compra ) {

    print "has comprat $cosa? ";
    $resposta = <STDIN>;
    chomp($resposta);

    if ( $resposta =~ /^si$/ ) {
	print "perfecte!\n";
	$comprats = $comprats + 1;
    }
    elsif ( $resposta =~ /^no$/ ) {
	print "vaja...\n";
	$no_comprats = $no_comprats + 1;
    }
}

print "\n\n";
print "has comprat $comprats coses i t'has deixat de comprar-ne $no_comprats";
print "\n\n";

# possibles desenvolupaments: 
# 1. quan el nombre de coses que has comprat o t'has deixat sigui 1,
#    "coses" s'ha d'imprimir en singular (cosa)

####
# semantica de la funcio "split"
######
# while ( $llista_de_la_compra =~ /^([^,]+),(.+)$/ ) {
#     push @llista_de_la_compra, $1;
#    $llista_de_la_compra = $2;
# }
# push @llista_de_la_compra, $llista_de_la_compra;
###
