#!/usr/bin/perl -w
# remd: exo fonction recursives qui depuis une sub s'appelle elle meme
# peu servir dans les tri et autres fonctionnalités complexes. pour env UNIX like
# exemple tiré d'un article sur linux-france.org alain adelmar

use strict;

my $i =0;
my $max = 1000;

add($i);
sub add {
        
my $i = $_[0];
        
$i++;
        
print "$i\n";
        
if ($i < $max) {
                
$i = add($i);
        
}
        
return $i;
}


END;