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

[Levak]

154 avec le message d'erreur (dont 6 espaces obligatoires)

Code: Select all

Define zef(s)=
Prgm
  If getType(#s)="NONE" Then
    Disp undef,s
    Stop
  EndIf
  Local i
  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


[Bisam]

Je crois que l'on peut déclarer Levak VAINQUEUR !

Il gagne......... le droit (le devoir, même !) de préparer le prochain mini-challenge.

[Adriweb]

Malheureux, un sujet levakien perdra 90.01% des gens...

[Levak]

Malheureux, un sujet levakien perdra 90.01% des gens...

Il va surtout falloir que je trouve une idée de sujet et que j'ai le temps de créer un topic. Tu te rends compte ? Ça rentre pas dans mon emploi du temps !

[Adriweb]

Pour la peine, ca te trottera dans la tête quand t'iras te coucher.
Bon certes, va falloir attendre la prochaine fois que tu ailles dormir....