π
<-

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

Sous-forums réunissant les mini-challenges en TI-Basic Nspire

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

Unread postby Adriweb » 01 Jul 2014, 21:56

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
User avatar
AdriwebAdmin
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Level up: 82.1%
 
Posts: 14880
Images: 1211
Joined: 01 Jun 2007, 00:00
Location: France
Gender: Male
Calculator(s):
MyCalcs profile
Twitter: adriweb
GitHub: adriweb

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

Unread postby NspireCas » 01 Jul 2014, 21:58

Ah bah c'est bon alors :p.

@Levak, oui mais des stop dans des 'try' ne font que sortir de la boucle1 du try (ça n'arrête pas le programme)
User avatar
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 6.4%
 
Posts: 1304
Images: 7
Joined: 04 Oct 2012, 20:44
Location: Paris
Gender: Male
Calculator(s):
MyCalcs profile
Class: -

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

Unread postby Levak » 01 Jul 2014, 22:27

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
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby NspireCas » 01 Jul 2014, 22:35

ça c'est du beau code :~o (par contre je n'ai rien pas tout compris au code :p)
User avatar
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 6.4%
 
Posts: 1304
Images: 7
Joined: 04 Oct 2012, 20:44
Location: Paris
Gender: Male
Calculator(s):
MyCalcs profile
Class: -

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

Unread postby pierrotdu18 » 01 Jul 2014, 22:36

Super cool bravo! :) (et j'ai tout compris x) )
Bonjour
User avatar
pierrotdu18Premium
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 40.5%
 
Posts: 975
Joined: 07 Nov 2013, 20:18
Location: Paris V
Gender: Male
Calculator(s):
MyCalcs profile
Class: MP* Lycée Henri IV

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

Unread postby NspireCas » 01 Jul 2014, 22:40

Oui mais bon, mon code est plus court :D.
User avatar
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 6.4%
 
Posts: 1304
Images: 7
Joined: 04 Oct 2012, 20:44
Location: Paris
Gender: Male
Calculator(s):
MyCalcs profile
Class: -

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

Unread postby Levak » 01 Jul 2014, 22:42

Nspirecas wrote:Oui mais bon, mon code est plus court :D.

J'ai dû rater un épisode alors, il me semble plutôt que le tiens fait le double du mien (23 vs 12).
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby pierrotdu18 » 01 Jul 2014, 22:43

Non non, je crois qu'il rigolait :D

Par contre Levak, avant que tu ne fasse de modif, ton programme marchait bien, et depuis, il ne m'affiche rien..
Bonjour
User avatar
pierrotdu18Premium
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 40.5%
 
Posts: 975
Joined: 07 Nov 2013, 20:18
Location: Paris V
Gender: Male
Calculator(s):
MyCalcs profile
Class: MP* Lycée Henri IV

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

Unread postby Levak » 01 Jul 2014, 22:44

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
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
User avatar
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 98.9%
 
Posts: 6414
Images: 22
Joined: 27 Nov 2008, 00:00
Location: 0x1AACC355
Gender: Male
Calculator(s):
MyCalcs profile
Class: BAC+5: Epita (ING3)

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

Unread postby NspireCas » 01 Jul 2014, 22:45

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

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 154 161.

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.
User avatar
NspireCasModo
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 6.4%
 
Posts: 1304
Images: 7
Joined: 04 Oct 2012, 20:44
Location: Paris
Gender: Male
Calculator(s):
MyCalcs profile
Class: -

PreviousNext

Return to Mini-Challenges

Who is online

Users browsing this forum: ClaudeBot [spider] and 0 guests

-
Search
-
Social TI-Planet
-
Featured topics
Ndless for CX 4.5.5 / CX II 6.2.0
Comparaisons des meilleurs prix pour acheter sa calculatrice !
"1 calculatrice pour tous", le programme solidaire de Texas Instruments. Reçois gratuitement et sans aucune obligation d'achat, 5 calculatrices couleur programmables en Python à donner aux élèves les plus nécessiteux de ton lycée. Tu peux recevoir au choix 5 TI-82 Advanced Edition Python ou bien 5 TI-83 Premium CE Edition Python.
Enseignant(e), reçois gratuitement 1 exemplaire de test de la TI-82 Advanced Edition Python. À demander d'ici le 31 décembre 2024.
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
12345
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
2125 utilisateurs:
>2096 invités
>21 membres
>8 robots
Record simultané (sur 6 mois):
32248 utilisateurs (le 01/09/2025)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)