[Mini-Challenge Basic #4] : Combien d'arguments ?

[Levak]

Non non ton code prend 175 caractères sans les espaces et celui-ci :

Pas avec le code que tu avais posté plus tôt, c'est tout.

[NspireCas]

ça ne comptait pas j'avais rajouté le cas où les fonctions n'existent pas dans le classeur (ce que tu n'as pas fait), regarde les lignes en plus :

Code: Select all

   Try
      If string(expr(g&"("&i&")"))≠g&"("&i&")" Then
         Disp g&" nécessite au moins "&string(a)&" argument"&when(a>1,"s","")
      Else
         Disp g&" n'existe pas dans ce classeur"
      EndIf
   Else
      Disp g&" n'existe pas dans ce classeur"
   EndTry


Si la chaîne de caractères ne correspond pas au nom d'une fonction ou d'un programme, on affichera un message d'erreur compréhensible.

Bon après tu vas surement réussi à condenser ce code et tu reprendras le dessus .

[Levak]

Par contre, tu vas m'expliquer comment fait ton coder pour fonctionner avec des b=0 ou i=1.

[NspireCas]

Ah mince
En fait j'ai supprimé tous les ':' à cause de ceux de début de ligne et j'ai oublié que ça allait trafiquer les affectations ^^.
Bon ça me fait toujours 161 caractères .

[Levak]

Histoire d'honorer ma lignée (sans prélude, 129 caractères dont 4 espaces mandatory) :

Code: Select all

Define getnargs(s)=
Prgm
  Local i
  0→i
  s&"("→s
  While true
    Try
      expr(s&")")
      Stop
    Else
      If errCode≠930
        Exit
      s&when(inString(s,"(_")>0,",_","_")→s
      i+1→i
    EndTry
  EndWhile
  Disp i
EndPrgm


[pierrotdu18]

Aïe

J'allais dire 133 caractères, mais trop tard

Code: Select all

Define getnargs(s)=
Prgm   
  ""→i   
  0→a   
  930→b   
  While b=930       
    0→b       
    Try           
      expr(s&"("&i&")")       
    Else           
      errCode→b           
      a+1→a     
    EndTry         
    i&when(a=1,"_",",_")→i   
  EndWhile   
  Disp a
EndPrgm


[pierrotdu18]

Histoire d'honorer ma lignée (sans prélude, 129 caractères dont 4 espaces mandatory) :

Code: Select all

Define getnargs(s)=
Prgm
  Local i
  0→i
  s&"("→s
  While true
    Try
      expr(s&")")
      Stop
    Else
      If errCode≠930
        Exit
      s&when(inString(s,"(_")>0,",_","_")→s
      i+1→i
    EndTry
  EndWhile
  Disp i
EndPrgm


Déjà, les locals ne sont pas obligatoires dans un programme donc tu économises des caractères

[pierrotdu18]

Désolé pour le triple postage, mais je viens de réaliser que Levak avait dit "sans prélude" !

Je descends donc à 104 caractères!

EDIT: 106 pardon, avec les espaces obligatoires


Oups, il y a un problème dans ma fonction, je monte donc à 114 caractères.....

Code: Select all

Define getnargs(s)=
Prgm
   ""→i
   0→a
   930→b
   While b=930
      0→b
      Try
          expr(s&"("&i&")")
      Else
          errCode→b
          If b=930
          a+1→a
     EndTry
        i&when(a=1,"_",",_")→i
   EndWhile
   Disp a
EndPrgm

[Levak]

Bon, bah 100 :

Code: Select all

Define getnargs(s)=
Prgm
  0→i
  s&"("→s
  Loop
    Try
      expr(s&")")
      Stop
    Else
      If errCode≠930
        Exit
      s&when(i>0,",_","_")→s
      i+1→i
    EndTry
  EndLoop
  Disp i
EndPrgm


[pierrotdu18]

Oui, je pensais en effet à ça comme améliorations
Pour éviter la ligne avec le inString et éventuellement le true

Par contre, là, il est possible que tu aies définitivement gagné...