#!/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;