Supprimer un terme d'une liste ?

[AnToX98]

Voici ma fonction qui ne marche pas ...

Code: Select all

Define sortdecr(l)=
Func
:Local a,m,n,t,z,p,o
:dim(l)→z
:If z<3 Then
:  If z=2
:    Return when(dim(l[1])<dim(l[2]),l,{l[2],l[1]})
:  If z=1
:    Return l
:EndIf
:{}→m
:{}→n
:{}→o
:((dim(l[1])+dim(l[z]))/(2))→p
:For t,1,z
:  dim(l[t])→a
:  If a<p
:l[t]→n[dim(n)+1]
:  If a>p
:l[t]→m[dim(m)+1]
:  If a=p
:l[t]→o[dim(o)+1]
:EndFor
:Return augment(sortdecr(m),augment(o,sortdecr(n)))
:EndFunc

[Bisam]

Pourquoi y a-t-il des "dim" dans ton cas z=2 ?
Ce devrait être :

Code: Select all

:If z=2
:    Return when(l[1]<l[2],l,{l[2],l[1]})

[AnToX98]

Non ce sont des chaînes de caractère...

[Extra44]

voila un code qui marche :

Code: Select all

Define sortdecr(l)=
Func
:Local a,m,n,t1,t2,z,p,o
:dim(l)→z
:For t1,1,z-1
:  For t2,t1,z
:    If dim(l[t1])<dim(l[t2]) Then
:      o:=l[t1]
:      l[t1]:=l[t2]
:      l[t2]:=o
:    EndIf
:  EndFor
:EndFor
:Return l
:EndFunc