[Mini-Challenge Basic #9] : Quel est le groupe d'âge...

[pierrotdu18]

Heu... sauf erreur de ma part, when(n<0,∞,n)→n est plus long que

Code: Tout sélectionner

if n<0
∞→n

...

[Bisam]

C'est moi, ou c'est évident ?
Bref, j'ai 147 caractères...

Show/Hide spoilerAfficher/Masquer le spoiler

et je pense qu'il est impossible de faire moins.

[Adriweb]

Effectivement, pas mal.

Mais j'ai 177 pour Excale et 171 pour Pierrot
(189-2*6 et 185-2*7).
Je compte à partir du Local jusqu'à la fin de l'avant dernière ligne.

Difficile de faire mieux, je pense, du moins de cette façon là

[Excale]

C'est moi, ou c'est évident ?
Bref, j'ai 147 caractères...

Show/Hide spoilerAfficher/Masquer le spoiler

et je pense qu'il est impossible de faire moins.

pièce sage?

[Adriweb]

Ah, pas bête, le "pièce sage" (on verra qui aura compris ), à tester....
(thinking outside the box, pour le coup )

[critor]

Puisque apparemment on s'autorise à ce que ça ne marche que sur CAS, j'ai 153 caractères d'après OpenOffice:

Code: Tout sélectionner

Define a(n)=
Func
Local i
If n<0
∞→n
1→i
While {101,66,23,19,16,12,6,3,0}[i]>n
i+1→i
EndWhile
string({troll,retraite,travail,postbac,lycee,college,primaire,maternelle,maison}[i])
EndFunc

[Adriweb]

haha, pas bête, mais encore faut-il que ces variables n'existent pas

Edit : en fait, Notepad++ compte mal les caractères UTF8... Donc bref, oui, il faut les compter comme 1 caractère, obviously.

[Bisam]

minichallenge9.jpg

Ah désolé, je suis descendu à 128...

[pierrotdu18]

Wahou

[critor]

Ce n'est pas mieux, mais juste pour le plaisir je montre une solution sans aucune boucle, et qui est pourtant de taille raisonnable

Code: Tout sélectionner

Define a(n)=
Func
Local w
w(t,s,r):=when(t,s,r)
string(w(n≥101 or n<0,troll,w(n≥66,retraite,w(n≥23,travail,w(n≥19,postbac,w(n≥16,lycee,w(n≥12,college,w(n≥6,primaire,w(n≥3,maternelle,maison)))))))))
EndFunc