#!/usr/bin/perl
  # remd: exo avec les fonctions map et grep avec format de sortie.
  # il tourne bien alain Adelmar <aadelmar@free.fr>
  
  
  
  format STDOUT_TOP =
  Page $<<
  
  Initial Double Quart Interet 4%  pair dbl-diz pair-quart interet>1
  ======= ====== ===== ==========  ==== ======= ========== =========
  .
  
  $i, $element;
  @ls_init = (1..40);
  # exemple avec la fonction map
  @interet_4p100 = map(($_*4)/100, @ls_init);
  @ls_quart = map (($_*0.25), @ls_init);
  @ls_double = map($_*2, @ls_init);
  # exemple avec la fonction grep
  @ls_init_pair = grep(($_=~ /2|4|6|8|0$/), @ls_init);
  @ls_double_dizaine = grep($_=~ /^1/, @ls_double);
  @ls_quart_pair = grep($_=~ /2|4|6|8|0$/, @ls_quart);
  @ls_interet_sup1 = grep($_ =~ /^1/, @interet_4p100);
  
  
  foreach $element(@ls_init) {
          write;
          $i++;   
  }
  
  format STDOUT=
  @<<<<< @<<<<<< @<<<<<<< @<<<<<<< @<<< @<<<    @<<<<      @<<<<<
  $ls_init[$i], $ls_double[$i], $ls_quart[$i], $interet_4p100[$i], $ls_init_pair[$i], $ls_double_dizaine[$i], $ls_quart_pair[$i], $ls_interet_sup1[$i]
  .
  
  END;