[Mini-Challenge Basic #4] : Combien d'arguments ?
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Je doute fort que les trolls d'Excale puissent être résolus, hein ^^
MyCalcs: Help the community's calculator documentations by filling out your calculators info!
MyCalcs: Aidez la communauté à documenter les calculatrices en donnant des infos sur vos calculatrices !
Inspired-Lua.org: All about TI-Nspire Lua programming (tutorials, wiki/docs...)My calculator programs
Mes programmes pour calculatrices
-
AdriwebAdmin
Niveau 16: CC2 (Commandeur des Calculatrices)- Posts: 14880
- Images: 1211
- Joined: 01 Jun 2007, 00:00
- Location: France
- Gender:
- Calculator(s):→ MyCalcs profile
- Twitter: adriweb
- GitHub: adriweb
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Ah bah c'est bon alors
.
@Levak, oui mais des stop dans des 'try' ne font que sortir de la boucle1 du try (ça n'arrête pas le programme)

@Levak, oui mais des stop dans des 'try' ne font que sortir de la boucle1 du try (ça n'arrête pas le programme)
-
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)- Posts: 1304
- Images: 7
- Joined: 04 Oct 2012, 20:44
- Location: Paris
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: -
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
- Code: Select all
Define getnargs(s)=
Prgm
s:=s&"("
While true
Try
expr(s&")")
Stop
Else
If errCode≠930
Exit
s:=s&when(inString(s,"(_")>0,",_","_")
EndTry
EndWhile
Disp int((dim(s)-inString(s,"(")+1) ./ 2)
EndPrgm
-
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)- Posts: 6414
- Images: 22
- Joined: 27 Nov 2008, 00:00
- Location: 0x1AACC355
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: BAC+5: Epita (ING3)
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
ça c'est du beau code
(par contre je n'ai rien pas tout compris au code
)


-
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)- Posts: 1304
- Images: 7
- Joined: 04 Oct 2012, 20:44
- Location: Paris
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: -
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Super cool bravo!
(et j'ai tout compris x) )

Bonjour
-
pierrotdu18Premium
Niveau 15: CC (Chevalier des Calculatrices)- Posts: 975
- Joined: 07 Nov 2013, 20:18
- Location: Paris V
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: MP* Lycée Henri IV
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Oui mais bon, mon code est plus court
.

-
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)- Posts: 1304
- Images: 7
- Joined: 04 Oct 2012, 20:44
- Location: Paris
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: -
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Nspirecas wrote:Oui mais bon, mon code est plus court.
J'ai dû rater un épisode alors, il me semble plutôt que le tiens fait le double du mien (23 vs 12).
-
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)- Posts: 6414
- Images: 22
- Joined: 27 Nov 2008, 00:00
- Location: 0x1AACC355
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: BAC+5: Epita (ING3)
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Non non, je crois qu'il rigolait 
Par contre Levak, avant que tu ne fasse de modif, ton programme marchait bien, et depuis, il ne m'affiche rien..

Par contre Levak, avant que tu ne fasse de modif, ton programme marchait bien, et depuis, il ne m'affiche rien..
Bonjour
-
pierrotdu18Premium
Niveau 15: CC (Chevalier des Calculatrices)- Posts: 975
- Joined: 07 Nov 2013, 20:18
- Location: Paris V
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: MP* Lycée Henri IV
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
pierrotdu18 wrote:Par contre Levak, avant que tu ne fasse de modif, ton programme marchait bien, et depuis, il ne m'affiche rien..
Oublié de changer un Stop en Exit, merci
-
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)- Posts: 6414
- Images: 22
- Joined: 27 Nov 2008, 00:00
- Location: 0x1AACC355
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: BAC+5: Epita (ING3)
Re: [Mini-Challenge Basic #4] : Combien d'arguments ?
Non non ton code prend 175 caractères sans les espaces et celui-ci :
n'en a que154 161.
- Code: Select all
Define 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
Disp a
EndPrgm
n'en a que
Bisam wrote:Je n'ai pas précisé car faire un programme qui fonctionne est déjà un challenge en soi... mais si vous voulez vraiment, ce sera effectivement le nombre de caractères.
-
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)- Posts: 1304
- Images: 7
- Joined: 04 Oct 2012, 20:44
- Location: Paris
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: -
Who is online
Users browsing this forum: ClaudeBot [spider] and 0 guests