🚀 go-pugleaf

Huu Chau Nguyen <huuchau.nguyen@hol.fr> writes:
> 
> je cherche pour un ami, l'algorithme de d�composition des
> nombres comme dans l'exemple suivant :
> 
> ? 5
> 
> (1, 4)
> (1, 3, 1)
> (1, 1, 1, 2)
> .....
> (1, 1, 1, 1, 1)
> 
> les d�compositions ne sont pas n�cesairement des nombres premiers.
> un programme en code C ou pascal ne serait pas de trop.

En Perl c'est facile:

   #!/usr/local/bin/perl -w
   sub decomp {
       my($n, $i, $d, @d) = @_;
       foreach $i (1 .. $n-1) {
   	   foreach $d (decomp($n-$i)) {
   	       next if $i < $d->[0];
   	       push(@d, [$i, @$d]);
   	   }
       }
       return(@d, [$n]);
   }
   foreach $d (decomp(5)) {
       print "(", join(",", @$d), ")\n";
   }

donne:

   (1,1,1,1,1)
   (2,1,1,1)
   (2,2,1)
   (3,1,1)
   (3,2)
   (4,1)
   (5)

________________________________________________________
Lionel Cons        http://wwwinfo.cern.ch/~cons
CERN               http://www.cern.ch
 
Murphy's 7th Law:
	Left to themselves, things tend to go from bad to worse.