Qui veux s'amuser un peu? - Page 2

pkoi fou ?

remontage.
quelqu'un l'a fait?
j'ai trouvé,reste à l'otpimiser et à le mettre en forme.

arf t tout seul à concourir

ben ouais,y'a qu'un que ça a interressé, mais au moins comme ça,c'est moi le meilleur

Ah oui ça y'a pas de risque que qqun te prenne la place

Et tu peux nous montrer ta méthode ?

C'est iteratif ton truc ?

iteratif toi même

ben,j'ai entendu un jour que la recusrivité en basic était assez "lente".
donc,il n'y a pas d'appel du prog à l'interieur de lui meme,mais néanmoins,ya une grosse boucle for.qui retraite la meme variable plusieurs fois.

c'est un peu de la recursivité implicite.

c pas particulièrement lent la récursivité ! (heu... un peu quand même...)
enfin je l'ai utilisé dans Interum, pour supprimer les dossiers et leur contenu. Bon c pas hyper rapide mais ça va...

voila mon épave de code,qui doit surement pouvoir etre optimisé,mais qui a le mérite de marcher:[nosmile]

ximoon(boucle)
Prgm
Local a,b,coef,liste,listnext,longueur,n,y,boucle
ClrIO
"11"»liste
If boucle=1 Then
Disp "1"
Stop
Else
Disp "1","11"
EndIf
For y,1,boucle-2,1
1»coef
""»listnext
dim(liste)»longueur
For n,1,longueur-1,1
mid(liste,n,1)»a
mid(liste,n+1,1)»b
If a=b Then
coef+1»coef
Else
string(coef)»coef
listnext&coef&a»listnext
expr(coef)»coef
1»coef
EndIf
EndFor
If a=b Then
string(coef)»coef
listnext&coef&a»listnext
Else
string(coef)»coef
listnext&coef&b»listnext
EndIf
Disp listnext
listnext»liste
EndFor
EndPrgm

je ne sais pas si je pourrais pas mieux faire en utilisant l'indirection à la place des blocs style:


string(coef)»coef
listnext&coef&a»listnext
expr(coef)»coef


qu'est ce vous en pensez???

G la flemme de regarder
Dis moi juste si c un truc comme ça :

- On choppe un caractère
- Si c'est le même que precedemment on ajoute 1 à un compteur
- Si c'est un caractère différent, on retient le dernier et le nombre qu'il y en avait, puis un passe au suivant

Etc...

ouais,c'est ça.

le compteur en question,c'est la variable coef.

ok

J'en ai fait un aussi mais... Je lai laissé à Paris et là je suis en vacances...
mais en fait c'était pas super rapide!
Rien que pour la 20è ligne ça luttait pas mal!
je vais essayer d'en refaire un ici sous vti pour voir

j'ai un peu optimisé le machin.
ça va un peu plus vite.

ehu, il y a pa plus simple ? voici un petit code (fait en direct live...)

suite(n)
prgm
 local a,b,c,d,k,l
 clrio
 disp "1"
 if n<1:return
 "1">>a
 for k,2,n
  "">>b
  "">>c
  0>>d
  for l,1,dim(a)
   if mid(a,l,1)=c then
    d+1>>d
   else
    if l!=1 then
     b&string(exact(d))&c>>b
    endif
    1>>d
    mid(a,l,1)>>c
   endif
  endfor
  b&string(exact(d))&c>>b 
  disp b
  b>>a
 endfor 
endprgm

pourquoi utilisez-vous des string?
Moi je n'utilisait que des listes.
C'est plus simple pour extraire des valeurs.

string, liste, c pareil, vu ke un string, c une liste de char... mais bon...

c'est pas du tout Werber qui a inventé ca, c'est simple je devais connaitre ce truc des années avant qu'il écrive son premier livre

Heu.. t'a kel age alos ?

J'ai pas encore 20 ans mais ce truc je me souvient je le connais depuis le CM1

ah, ok.. ben ds ce cas la.. "les fourmis" é t deja sorti.. il est sorti en 1990 si je ne me trompe.... donc tu devais etre en CE2 a ce momment la...

Pour le dessin animé c'est facile
tu prends une cinquantaine d'images (memoire) et tu fais un CyclePic
J'avais fait ça pour un prog ki affichait un cube en 3D avec ombres, car j'avais 1/60FPS

tu ferais mieux de le calculer le cube...

Je faisais tout en basic, je ne suis toujours pas passé à l'asm.
Le cube était composé de 12 triangles, un ombrage plat était appliqué sur chaque triangle et affiché par un tramage à diffusion d'erreur:

If rand()>lumiere
PxlOn y,x

Ca rendait bien mais il fallait au moins une minute pour le dessiner, plus s'il était zoomé.
Alors je sauvegardais les images au fur é a mesure, et je faisais un CyclePic

valà je suis retombé sur ce que j'avais fait y'a trois plombes...
en fait c'est pas trop différent de ce qui a déjà été donné
mais j'avais dit que je le mettrai alors...

liste(n)
func
local a,c,n,l2,l,i,theta
{1}->l
for theta,1,n-1
0->c
{}->l2
l[1]->a
for i,1,dim(l)
if l[i]=a then
c+1->c
else
augment(l2,{c,a})->l2
l[i]->a
1->c
endif
endfor
augment(l2,{c,a})->l
endfor
endfunc