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

[Bisam]

Ouh que c'est moche...

Voici la mienne :

Code: Select all

Define atom(z)=
when(getType(z)="NUM", atom({1,0,"",z}), when(z[4]<=0,z[3], atom(augment(when(z[2]>0, {z[1]+1,z[2]-1},{floor((z[1]+3)/2), floor(z[1]/2)}), {z[3]&string(z[1])&mid("spdfgh", z[2]+1, 1)&string(min(z[4], 4z[2]+2))&" ", max(0,z[4]-4z[2]-2)}))))

[pierrotdu18]

Sauf que comme c'est la hauteur en pixels qui compte, ça, c'est mieux (ceci est une "amélioration" de la hauteur en pixels du code de Bisam et je ne considère pas le code ci-dessous comme ma production)

Code: Select all

Define atom(z)=
Func
:when(getType(z)="NUM",atom({1,0,"",z}),when(z[4]≤0,z[3],atom(augment(when(z[2]>0,{z[1]+1,z[2]-1},{floor((z[1]+3)*0.5),floor(z[1]*0.5)}),{z[3]&when(right(string(z[1]),1)=".",left(string(z[1]),dim(string(z[1]))-1),string(z[1]))&mid("spdfgh",z[2]+1,1)&when(right(string(min(z[4],4*z[2]+2)),1)=".",left(string(min(z[4],4*z[2]+2)),dim(string(min(z[4],4*z[2]+2)))-1),string(min(z[4],4*z[2]+2)))&" ",max(0,z[4]-4*z[2]-2)}))))
:EndFunc

[Bisam]

Je l'avais fait, mais il faut rajouter des "exact" pour éviter l'apparition du "." dû au calcul en valeur approchée... et comme personne d'autre ne proposait 1 seule ligne...

[pierrotdu18]

Ah ah, tu n'as pas vu que j'avais géré le problème? Sauf que comme je ne connaissais pas la fonction exact(), j'ai fait avec les strings, un truc de gros boucher

[Bisam]

Ah non, j'avais regardé vite fait...

[pierrotdu18]

Pour info :

[Bisam]

Eh, mais au fait, je n'ai pas mis de "Func...EndFunc" c'est volontaire ! Cela restreint d'autant plus la hauteur !
Pour le faire, il suffit de taper

Code: Select all

ma_grosse_ligne_moche->atom(z)

Pour info, mon code de départ ressemblait à ceci :

Code: Select all

Define atom(z)=
Func
Local n,l,r,e
1->n
0->l
""->r
While z>0
  min(z,4l+2)->e
  r&string(n)&mid("spdfgh",l+1,1)&string(e)&" "->r
  z-e->z
  If l>0 Then
    n+1->n
    l-1->l
  Else
    n->l
    floor((n+3)/2)->n
    floor(l/2)->l
  EndIf
EndWhile
Return r
EndFunc

Mais j'ai vite vu que ce serait bien plus efficace de regrouper les variables n et l en une seule (une liste à 2 éléments) puis j'ai réussi à supprimer la variable e... et enfin, j'ai mis la variable r dans la liste qui contenait déjà n et l... mais il fallait aussi mettre z pour pouvoir faire la boucle alors je l'ai mis avec.
Enfin, il ne restait plus qu'à écrire le tout sous forme récursive et le tour était joué !

[pierrotdu18]

Bravo bravo

Heu... je ne crois pas que cela soit permis, Excale avait bien annoncé que ça se passait dans l'éditeur de programmes, avec la capture d'écran...

[Bisam]

Une fois que l'on a fait ce que j'ai dit, on peut très bien ouvrir la fonction dans l'éditeur de programmes...
Je ne vois pas où est le problème.

PS : je viens de penser à une astuce pour éviter les divisions et même les "floor"...
Ça raccourcit même le code !

Code: Select all

Define atom(z)=
when(getType(z)="NUM", atom({1, 0, "", z}), when(z[4]<=0, z[3], atom(augment(when(z[2]>0, {z[1]+1, z[2]-1},{shift(z[1]+3), shift(z[1])}), {z[3]&string(z[1])&mid("spdfgh", z[2]+1, 1)&string(min(z[4], 4z[2]+2))&" ", max(0, z[4]-4z[2]-2)}))))

[Excale]