#!/usr/bin/perl
# remd: exo pour les 4 operations sur listes avec map. alain adelmar

$i, $element;
@ls_init = (1..40);
@interet_4p100 = map(($_*4)/100, @ls_init);
@ls_quart = map (($_*0.25), @ls_init);
@ls_double = map($_*2, @ls_init);

print "Pour une liste initiale de 1 à 40\ninit  double   quart   int(4%)\n"; 
foreach $element(@ls_init) {
        print "$ls_init[$i]\t$ls_double[$i]\t$ls_quart[$i]\t$interet_4p100[$i]\n";
        $i++;
}
END;