Discussion :

[Premium]

Bonjour,

j'ai écrit une fonction Intervalle(n,x) qui permet de retirer l'élément n d'une liste allant de 1 à n.
Je souhaite utiliser cette fonction pour retirer tous les multiples de x qui sont dans cet intervalle.
La fonction NonMult(n,x) doit faire celà
Le problème est que cette dernière fonction ne fonctionne pas comme je le souhaite.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl
use strict;
 
sub Intervalle
{
    my ($n,$x) = @_;
    my @tab;
    for(my ($i)=1; $i<$x; $i++){
	push(@tab,$i);
    }
    for(my ($j)=$x+1; $j<=$n; $j++){
	push(@tab,$j);
    }
    return @tab;
}
 
sub NonMult
{
    my ($n,$x) = @_;
    my @t;
    for(my ($i)=1; $i*$x<=$n; $i++){
	@t = Intervalle($n,$i*$x);
    }
    return @t;
}
 
print join(" ",Intervalle(10,7))."\n";
print join(" ",NonMult(20,3))."\n";

[Jedai]

Ton problème est un problème d'algorithmique plus que de Perl : dans ton cas, la fonction Intervalle() crée une nouvelle liste à chaque appel (liste des nombres de 1 à n privé de x), dans la fonction NonMult, @t contient donc le résultat du dernier appel à Intervalle dans ta boucle, c'est à dire 1 à n privé du dernier multiple de x dans [1,n]...
Tu peux faire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub Intervalle {
  my ($n, $x) = @_;
  die "x doit être dans 1..n !\n" if( $x < 1 or $x > $n );
  return 1..($x-1), ($x+1)..$n;
}
 
sub NonMult {
  my ($n, $x) = @_;
  die "x doit être dans 1..n !\n" if( $x < 1 or $x > $n );
  my @result;
  my $i;
  for( $i = 1; $i * $x < $n; $i++ ) {
    push @result, ( ($i-1) * $x + 1 )..( $i * $x - 1 );
  }
  return @result, ( ($i-1) * $x + 1 )..$n;
}

--
Jedaï

[GnuVince]

Que veux-tu faire exactement? Tu veux pouvoir retirer les multiples, disons de 5, d'une liste de 1 à n? Si c'est cela, pourquoi ne pas utiliser le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
sub retirer_multiples {
    my ($limite, $multiple) = @_;
    my @range = 1 .. $limite;
 
    return grep { $_ % $multiple } @range;
}
 
my @liste = retirer_multiples(23, 5);
print "@liste\n";

Est-ce que ça fait ce que tu veux? Si oui, ne trouves-tu pas que c'est plus lisible?