#!/usr/bin/perl -w

sub puissances
{
    @_ || return 2**0;

    my $n = shift;
    my @resultat = ();

    foreach $indice (0..$n)
    {
	push (@resultat,2**$indice); 
    }
    return @resultat;
}


@r = puissances(3);
print "@r\n";

@r = puissances();
print "@r\n";

@r = puissances 5;
$" = ','; # Specifie le caractere utilise entre chaque element d'une liste
          # lors d'une interpolation de celle-ci dans une chaine.
print "@r\n";