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

[Levak]

comment 'rajouter' un argument a chaque passage qui puisse être nombre, variable, chaîne de caractère ou boléens, la difficulté devrait être là.

C'est pas le même errorCode entre "Invalid args" et "Missing args".

[NspireCas]

Ahhhh j'y avais pas pensé ^^. Merci .
(Je pourrais programmer que demain soir par contre. )

Edit : Le challenge est-il toujours d'actualité ? Ne me dîtes pas que personne n'a encore réussi à le faire ^^

[Adriweb]

Vas-y, vas-y

[pierrotdu18]

En fait je n'arrive pas à faire marcher Try...

Je fais genre :

Code: Select all

Try
  function()
Else
  err:=1
EndTry

Et ça ne marche pas.......

[Levak]

Et ça ne marche pas.......

La doc officielle t'attend bras ouverts.

[Adriweb]

Hint : errCode toussa

[NspireCas]

C'était plus dur que prévu mais je viens de faire une version 'stable', je la mets ici et j'éditerai si j'arrive à améliorer le code :

Code: Select all

Define LibPub nbarg(g)=
Prgm
Local i,a,b
   i=""
   a=0
   b=930
   While b=930
      Try
          expr(g&"("&i&")")
          b=0
      Else
          b=errCode
          a=when(b=930,a+1,a)
     EndTry
        i=when(a=1,"1",i&",1")
   EndWhile
   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
EndPrgm

P.S Oui tout comme mon pseudo je n'ai pas trop été inspiré pour les noms des variables ^^ (de toute façon il faut faire le moins de caractères possibles)

[Adriweb]

Voilà, c'est cet algorithme que j'avais en tête et que j'ai décris plus haut
(en même temps, à première vue du moins, je ne vois pas 36 possibilités )

[Levak]

On peut utiliser Exit (équivalent de Break dans beaucoup de langages) ou Stop pour simplifier un peu tout ça.

[NspireCas]

Ah mais non ça ne marche pas du tout pour les troll de Excale, il faudrait rajouter un tas de lignes .