Aide:Algorithme en Maple

[invitedc3dbc26]

Bonsoir,
je suis en train de faire un algo, voici l'énoncé:
Faites un algo "ExtraireListe" qui a une liste paramètres L et qui revoie la liste extraite de L dont les éléments sont des nombres entiers premiers... ExtraireListe([2,11,4,7,8,11]); doit renvoyer [2,11,7,11]

J'ai donc fait ça et quand je teste sa me renvoie true ou false en prenant en compte que le 1er element de la liste:

Extraireliste := proc (list);
local n, m; 
n := nops(list); 
m := isprime(list); 
return m;
end proc;

Extraireliste(8, 1, 15);
                     false

Si vous pouviez m'aider se serait super
-----

[phryte]

Bonjour.
isprime renvoi une valeur vraie ou fausse :
Un exemple (à améliorer) :

Extraireliste := proc(list)::integer;
>         local n,i,m,r;
>         n:=nops(list);
>         m:=[0,0,0,0];r:=1;
>         for i from 1 to n do
>                 if isprime(list[i]) = true then m[r]:=list[i];r:=r+1; fi;
>         end do;return m;
>         end proc;

Appel :

L:=[2,11,4,7,8,11,12];nbprem:=Extraireliste(L);

[phryte]

Bonjour.
exemple amélioré :

restart:extraireliste:= proc(list)
> local i,m,n;
> m:=[];
> n:=nops(list);
> for i from 1 to n do
> if isprime(op(i,list)) then
> m:=[op(m),list[i]];
> fi;od;return m;
> end proc;
> L:=[2,11,4,7,8,11,13,14,22,23];nbprem:=extraireliste(L);

[phryte]

Bonjour.
En récursif :

restart:extnbpremier := proc(liste)if nops(liste)<1 then [] else
> if isprime(op(1,liste)) then
> [op(liste[1]),op(extnbpremier([op(liste[2..nops(liste)])]))];else extnbpremier([op(liste[2..nops(liste)])]);fi;fi
> end proc;
> L:=[0,1,2,3,4,5,6,7,8,9,10,11];r:=extnbpremier(L);

[A voir en vidéo sur Futura]