[Mini-Challenge Basic #π/4]: Avant je n'aimais pas la chimie

[davidElmaleh]

Ah oui, j'avais mal compris x)

[Excale]

Ah oui, j'avais mal compris x)

En plus c'est au programme de prépa ça .

[Bisam]

Bon, j'ai une solution en 13 lignes... j'y travaille encore.

On est bien d'accord qu'on s'en fout que le code soit moche ! Car je peux encore améliorer le nombre de lignes... mais ce sera dégueulasse !

Bon, je suis passé à 11 lignes... c'est déjà bien moche.

Il y a peut-être moyen de passer à 9, mais là, ce sera affreux !

[Excale]

On est bien d'accord qu'on s'en fout que le code soit moche ! Car je peux encore améliorer le nombre de lignes... mais ce sera dégueulasse !

Tant que c'est proprement indenté et que tu n'utilises pas des : artificiels, c'est bon.

[Bisam]

Bah, l'indentation, c'est vite vu :

Code: Select all

Define atom(z)
Func
Local nlr
...->nlr
While ...
  ... ->nlr
EndWhile
Return ...
EndFunc

Difficile de faire plus simple !
J'ai finalement réussi à descendre à ces 9 lignes.... et je ne pense pas qu'on puisse faire mieux (quoique... en récursif abscons...mais j'ai même pas envie d'essayer).

[pierrotdu18]

Ah j'ai une question... Pas le droit à expr() pour tricher avec la taille des lignes, mais est ce que si j'ai une string qui contient des chiffres et que je veux les utiliser en tant que chiffres je peux expr() la partie de ma string qui contient mon nombre ?

[Bisam]

J'ai bien envie de dire que oui, tu as le droit. De toute façon, la règle "Ne pas utiliser de : " est bien plus restrictive que celle de "expr()"

[pierrotdu18]

Oui c'est sûr. Enfin voilà, en gros me servir de expr comme d'une fonction tonumber

Et je pense qu'il a dit pas de expr, car disons qu'une string a tout le temps la même hauteur en pixel, alors que si on fait sans string il peut y a voir des variations comme avec les fractions et toutes les maths 2D

[Excale]

Oui mais non, pas de expr() quand même sinon tout le monde va vouloir l'utiliser en tordant les règles.

Fais toi une liste de nombres, t'as le droit au string() .

[pierrotdu18]

Bon... J'avais mal compris les règles, mais bon, voilà ma participation (interdite, ok, mais je voulais quand même la poster) en une ligne...

Code: Select all

Define klechkowski(n)=
Func
:left(left("1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616",expr(mid(right("1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616",176),n*2-1,2))*4),dim(left("1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616",expr(mid(right("1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616",176),n*2-1,2))*4))-2)&string(sum(seq(expr(mid("1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616",when(k=1,0,4*(k-1))+3,2)),k,1,expr(mid(right("1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616",176),n*2-1,2))))-n)
:EndFunc

EDIT: Et je tiens à préciser que c'est parfaitement indenté






EDIT2 :



Et en version plus longue mais moins kk :

Code: Select all

Define klechkowski(n)=
Func
:Local s
:s:="1s2 2s2 2p6 3s2 3p6 4s2 3d104p6 5s2 4d10 5p6 6s2 4f145d106p6 7s2 1 1 2 2 3 3 3 3 3 3 4 4 5 5 5 5 5 5 6 6 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 9 9 1010101010101010101011111111111112121313131313131313131313131313141414141414141414141515151515151616"
:left(left(s,expr(mid(right(s,176),n*2-1,2))*4),dim(left(s,expr(mid(right(s,176),n*2-1,2))*4))-2)&string(sum(seq(expr(mid(s,when(k=1,0,4*(k-1))+3,2)),k,1,expr(mid(right(s,176),n*2-1,2))))-n)
:EndFunc