Supprimer successivement les éléments d'une liste [Résolu]

[Frednight]

Bonsoir à tous
Je rencontre un problème avec la commande suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
L1 := [seq(i, i = 1 .. 12)]

a := (rand(1 .. 12))();
b := (rand(1 .. 12))();
while L1 <> NULL
      do
      if a notin L1
           then a := (rand(1 .. 12))()
      end if;
i := 1;
while L1[i] <> a
       do
        i := i+1
end do;
L1 := subsop(L1[i] = NULL, L1)
end do;

Ces lignes de commande servent à éliminer progressivement et aléatoirement les éléments d'une liste. Mon problème vient du fait que passé un certain nombre d'opérations, Maple refuse de continuer, m'opposant un "Error, improper op or subscript selector" soulignant qu'il ne peut appliquer la commande subsop mais je ne sais pas pourquoi.
Auriez-vous uen idée?

[quentinh]

Au moment où tu cherches l'indice i pour lequel L[ i ] vaut a, tu n'as pas vérifié que L contenait effectivement a, donc l'incrémentation de i peut durer un moment et dépasser la plage de valeurs de L (enfin, à première vue, en tout cas…)

[Frednight]

Envoyé par quentinh

Au moment où tu cherches l'indice i pour lequel L[ i ] vaut a, tu n'as pas vérifié que L contenait effectivement a, donc l'incrémentation de i peut durer un moment et dépasser la plage de valeurs de L (enfin, à première vue, en tout cas…)

C'est effectivement une erreur de ma part mais pas dans mon codage : j'ai oublié de mettre en ECM que L est à l'origine une liste contenant les 12 premiers entiers naturels.

je corrige ça tout de suite dans l'ECM fourni