Attend, tu l´as pas encore assez découragé :
Voila le traingle de Pascal en Perl
- !/usr/bin/perl
if ( $#ARGV < 0) { &(); }
$Nb = $ARGV[0];
$tab[0][0] = 1;
- Calcul du triangle
for ( $n = 1; $n < $Nb+1; ++$n) {
for ( $k=1; $k < $Nb+1; ++$k) {
$tab[$n][$k] = $tab[$n-1][$k] + $tab[$n-1][$k-1];
}
}
- Affichage du résultat
for ( $n = 1; $n < $Nb+1; ++$n) {
for ( $k = 1; $k < $Nb+1; ++$k) {
if ( $tab[$n][$k] ! = 0) {
$s . = $tab[$n][$k]." " ;
}
}
$s . = " \n";
}
print $s;
sub usage {
print STDERR " Usage $0 ENTIER...\n";
print STDERR " Affiche le triangle de Pascal de profondeur ENTIER.\n";
exit;
}
A pars Jarose je vois pas qui pourrais comprendre ce charabia ( heuresement que c´est dans la partie " les base" de Perl )
Ou sinon tu prend front page et t´écris 3 mots..