Forum TI-Planet.org

Je viens de penser à ceci sans raison apparente (quoique, Bisam a parlé de ça quelque part récemment, donc...), mais ça me parait suffisamment challengesque...

Rappel : voici la fonction delVoid(...) : "Returns a list that has the contents of List1 with all empty (void) elements removed"
Avec un screenshot vous comprendrez vite : (void et _, c'est pareil)


Normal mode :
Ré-implementer delVoid(...).

Hard mode :
Ré-implementer delVoid(...)... sans utiliser la fonction isVoid(...).
A vrai dire, je n'ai pas essayé - je ne sais meme pas si c'est possible, on verra bien

C'est un "code golf", donc le code le plus court gagne.

GL HF

Voici ma proposition pour le Hard mode: 84 caractères entre le Func et le EndFunc (compris) sans compter les espaces en début de ligne et les retours à la ligne:

Code: Select all

Define delvoid2(l)=
Func
Local i,r
r:={}
For i,1,dim(l)
  If string(l[i])≠"_"
    r:=augment(r,{l[i]})
EndFor
EndFunc

EDIT: Corrigé le ≠, merci Adriweb.

Bien

Voici il me semble un tout petit peu plus court:

Ah bah oui, zut, j'aurais surement du interdire la comparaison avec le string, je cherchais plus troll que ca Mais bien trouvé
Bref, tant pis pour moi, on verra pour une version plus complexe plus tard.

Sinon, @esum : tu veux dire "≠" au lieu de "=" non ?
@critor : Hum, du coup, code identique a esum ? (Faut que j'aille dormir, j'arrive plus a lire )

Edit : avec la meme idee que vous, j'arrive a faire quelques caracteres de moins.

Adriweb wrote:@critor : Hum, du coup, code identique a esum ? (Faut que j'aille dormir, j'arrive plus a lire )

esum a dû éditer entre temps, car il n'utilisait pas le string() ce matin mais un charCode().

Sans string (ou assimilé), certitude (ou assimilé) ni tentative de réduire la taille (ou assimilé):

Code: Select all

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

Oui j'ai édité mon code rapidement quand j'ai remarqué que je pouvais économiser 4 caractères en comparant le string directement.

@Excale bien vu pour le IfFn.

Le "ifFn" n'est qu'anecdotique... Ce qui est bien vu, c'est le l[i]=0 or true qui est toujours vrai, sauf lorsque l[i] est "void", auquel cas, il est considéré comme "undef" dans le "ifFn".
Celui-là, il fallait le trouver !

Voila ! c'est ce genre de trollerie que j'attendais - ou une "Excalerie", devrais-je l'appeler

GG

Excale est a 85 caracteres, Critor a 84
Qui dit mieux ? ^^