Retourner une liste privée des multiples d'un nombre

Marsh Posté le 08-10-2006 à 12:49:21

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 :

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

Marsh Posté le 08-10-2006 à 12:49:21

Marsh Posté le 09-10-2006 à 11:49:54

Dans ta boucle for de ta fonction NonMult, tu écrases à chaque fois ta liste @t.
Ca doit pas aider ou alors j'ai pas compris ton code.

Et puis pour simplifier tout ça, tu devrais peut être regarder du côté de la fonction grep, ça pourrait t'aider.

Marsh Posté le 09-10-2006 à 12:17:56

Perso j'aurais tout fait en une fonction beaucoup plus simplement:

Code :

sub Intervalle {
my ($n,$x, $mult) = @_;
my @tab;
foreach(1..$n){
push(@tab,$_) if !( $_==$x || ( defined $mult && $mult==1 && !($_%$x)));
}
return @tab;
}

Si tu passes 1 comme troisième argument, il vire aussi les multiples sinon il vire juste le 2eme argument

Marsh Posté le 09-10-2006 à 23:11:35

Ca ne repond pas a ta question, mais ta fonction Intervalle peut s'ecrire simplement return (1 .. $x-1, $x+1 .. $n).

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *