[Mini-Challenge #13] : DelVoid

[Bisam]

Bon, j'en poste un pour la forme... mais il est moins bon :

Code: Select all

Define delvoid2(l)=
Func
Local i,s
string(l)→s
","&mid(s,2,dim(s)-2)→s
instring(s,"_")→i
While i>0
  left(s,i-2)&mid(s,i+1)→s
  instring(s,"_")→i
EndWhile
expr("{"&mid(s,2)&"}")
EndFunc

[Adriweb]

Pendant que j'y pense, une amelioration des codes de critor et d'Excale consiste a faire a→b plutot que b:=a, ca fait 1 caractere de moins.

[Excale]

Si le but est de faire moins de chars:

Code: Select all

Define delvoid2(l)=
Func
Local i,r
{}→r
For i,1,dim(l)
ifFn(l[i]=0 or 0=0,augment(r,{l[i]}),0,r)→r
EndFor
EndFunc

[Adriweb]

Pas mal - avec optimisation tu es a 80 caracteres, et critor a 76 ^^

Mais bon, vous etes tous deux gagnants dans votre technique, disons

[Bisam]

A troll, troll et demi...

Code: Select all

Define delvoid2(l)=
Func
Local i,r,a
{}→r
For i,1,dim(l)
{l[i]}→a
when(a=a,augment(r,a),a,r)→r
EndFor
EndFunc

[Excale]

undef=undef

[Bisam]

grrr...
Je l'aurai, un jour, je l'aurai !

Code: Select all

Define delvoid2(l)=
Func
Local i,r
{}→r
For i,1,dim(l)
when(l[i]={},0,augment(r,{l[i]}),r)→r
EndFor
EndFunc

Cette fois, ça passe carrément !

[Adriweb]

Joli...

Je ne connaissais meme pas la finesse du dernier argument de When...

( when(Condition, trueResult [,falseResult] [,unknownResult]) )

[Bisam]

En fait, j'ai mis When pour faire croire que c'est différent de IfFn... et donc pas du tout inspiré des posts précédents.

[Excale]

Je suis d'accord avec cette proposition... jusqu'au jour où on pourra mettre des listes dans des listes.