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

[Adriweb]

Ah, Bisam, hé oui, un pièce sage... (gg Excale )

#clap #clap

(ce "Else" en plein milieu fait sens, mais ca me surprendra toujours )

[pierrotdu18]

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: Select all

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

Pas mal aussi de créer une fonction à l'intérieur ^^
Par contre tu pourrais économiser un caractère à cause de ton ":="

[davidElmaleh]

Voila, peut être une solution aussi courte voire plus courte que celle de Bisam :

Code: Select all

Define name(n)=
Func
Return string({troll,maison,maternelle,primaire,college,lycee,postbac,travail,retraite}[when(n²>100n,1,int(10-8*e^(−n/19)))])
EndFunc


PS: ca fait 125 caractères!
Bisam est battu!

[Adriweb]

marche pas pour moi ?

[Excale]

Addadot?

Edit: nop, c'était pas ça.

[Adriweb]

Ah oui non mais fail le 'e', aussi

Code: Select all

Return string({troll,maison,maternelle,primaire,college,lycee,postbac,travail,retraite}[when(n^2>100*n,1,int(10-8*exp(−n/19)))])

[pierrotdu18]

Non mais même ça marche pas, pour 45 ça donne retraite

[Excale]

Non mais même ça marche pas, pour 45 ça donne retraite

Oui mais métier pénible.

@Adriweb: en fait il ne sert à rien le . si le problème c'était le e.