Perl

probleme de recursivite

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : probleme de recursivite

royou1

bordeaux dans le coeur

Voila mon probleme c ke mon maitre de stage ma demande de resoudre un probleme et de me servir de la recursivite.
Je ne sai pas ce ke c donc jai fait des recherches sur google et je n'ai pas trouver ce ke je chercher j'ai juste trouver des fonctions pour essayer de comprendre la chose main en vain.
voila le source a modifier:

Code :

#boucle de changement de 4 par 4
$i = 0;
$index = 0;
$j = 0;
while ($index < $vector_n)
{ $vector[$index] .= $seq[$j];
}
continue
{ $index = $index+1;
## essayer de transformer en f(i)
$i = $i + 1;
$j = int($i/$seq_n);
if ($j == $seq_n) { $i = 0; $j = 0;}
}
il faut que le j disparaise et kil ni ai plus que le i
j'ai essayer cela mais sa marche po :
continue
{ $index = $index+1;
$i = &calci_4($index , $seq_n , $i);
}
########################################################################
# #
# 1.00 0206504 nico #
# #
# calci_4($index , $seq_n , $i) #
# #
#it is a procedure in order to reduce the row of the code and this procedure #
#is use in the boucle while to calculate the number of combinaison #
#################################################################################
sub calci_4(i){
my $index = 0;
my $i = 0;
if ($i<3)
{
$i = int($index/$seq_n);
calci_4( $i + 1);
if ($i == $seq_n) { $i = 0; }
}
return($i);
}

Publicité

royou1

bordeaux dans le coeur

je sais je passe pour une quiche mai je sui en premiere anne de bts iris et je fais du c++ et la mon stage est en perl et je connais pas la recursiviter donc je galere.
merci d'avance de votre reponse ki meclairera je lespere

thermocline

Geek intelligent

La recursivité n'a rien a voir avec le langage.
Tourne toi plutot vers des bouquins ou des sites d'algo. Je n'ai pas de sites en tete sur le sujet et je manque de temps pour te trouver ca. Alors cherche un peu par toi meme.
(Repense eventuellement a tes cours de premiere/terminale sur la recursivite des suites).

pospos

tiens, trouvé sur google:
http://www.chambily.com/recursivite/
c'est en pascal, mais les principes sont les memes

tiens, un truc en C:
http://perso.wanadoo.fr/carlov/cou [...] ivite.html

royou1

bordeaux dans le coeur

merci a vous deux
et pour le 1er site je connaisai mai le 2eme est pas mal du tout
je vais continuer mes tests en esperant de la reussite cette fois.

royou1

bordeaux dans le coeur

voila c encor moi jai encor un pti probleme jai ecir une fonction recursive( decidement jai du mal :cry: ). il ni a pas derreur mais elle naffiche rien.

Code :

#
# shared data
#
my $seq_n = 4;
my @vector;
my @element={"A","B","C","D"};
my $element_n = 4;
my $combi_n = 3;
my $vector_n = $element_n^($combi_n);
#================================================================================
# SUBROUTINES
#================================================================================
#################################################################################
# 1.00 080604 nico #
# init_vector #
#it consist to initialise the vector about blank #
#################################################################################
sub init_vector{
my $i = 0;
$vector_n = $seq_n * $seq_n;
for ($i=0; $i<$vector_n; $i++)
{ push (@vector, $blank);
}
}
#################################################################################
# 1.00 080604 nico #
# gen_block #
#it consist to use recursivite in the project #
#################################################################################
sub gen_block{
my $range = 0;
my $offset = 0;
my $block_size = $range/$element_n;
my $i = 0;
my $j = 0;
my $k = 0;
my $t = 0;
while ($i<$range){
$vector[$offset+$i].=$element[$k];
$j= $j+1;
if ($j == $block_size){
$j = 0;
$k = $k+1;
$t = $t +$range;
print "$i","$j","$k","$t" ;
}
gen_block($block_size,$t);
}
continue{
$i = $i+1;
}
}
#================================================================================
# MAIN
#================================================================================
&init_vector($vector_n);
print &gen_block($vector_n,0);
exit 0;

si il y a kelkun ki peut me dire ce ki va pas svp

el muchacho

Comfortably Numb

Code :

sub calci_4(i){
my $index = 0;
my $i = 0;
if ($i<3)
{
$i = int($index/$seq_n);
calci_4( $i + 1);
if ($i == $seq_n) { $i = 0; }
}
return($i);
}

Ceci est la définition de calci_4.
Dans cette fonction, tu fais appel à ... calci_4.
C'est ça la récursivité, c'est quand tu fais appel à la fonction dans sa propre définition. Pour éviter que ça ne boucle et ça ne finisse par exploser (les appels et les calculs intermédiaires étant empilés), il faut une condition d'arrêt qui sera vérifiée à chaque appel ; ici, if($i >= 3), on arrête.

thermocline

Geek intelligent

royou1 a écrit :

voila c encor moi jai encor un pti probleme jai ecir une fonction recursive( decidement jai du mal :cry: ). il ni a pas derreur mais elle naffiche rien.

si il y a kelkun ki peut me dire ce ki va pas svp

Ca fait quelque temps que je n'ai pas fait de perl,

Mais je doute de ta syntaxe sur

Code :

print &gen_block($vector_n,0);

---------------
Les bureaucrates: "S'ils tombaient d'un immeuble, il leur faudrait une semaine pour s'ecraser." "All I ever wanted All I ever needed Is here in my arms Words are very unnecessary They can only do harm Enjoy the silence"

el muchacho

Comfortably Numb

Ouaip, moi non plus, ça ne me rappelle rien. Mais avec Perl, faut se méfier de ses souvenirs.

Le & -> bizarre. Et dans la subroutine, j'aurais mis des shift(@_) pour récuperer les arguments.

pospos

le & est optionel pour les appels de fonctions, et en fait il n'est plus vraiment souhaitable depuis Perl 5.

Pour les arguments effectivement tu ne les recuperes par dans ton gen_block!

Message édité par pospos le 14-06-2004 à 20:25:26

Publicité

royou1

bordeaux dans le coeur

saye jai corrriger en tenant compte de vos remarque et jai ceci maintenant:

Code :

my $seq_n = 4;
my @vector;
my @element={"A","B","C","D"};
my $element_n = 4;
my $combi_n = 3;
my $vector_n = $element_n**$combi_n;
#================================================================================
# SUBROUTINES
#================================================================================
#################################################################################
# 1.00 080604 nico #
# init_vector #
#it consist to initialise the vector about blank #
#################################################################################
sub init_vector{
my $i = 0;
for ($i=0; $i<$vector_n; $i++)
{ push (@vector, $blank);
}
}
#################################################################################
# 1.00 080604 nico #
# gen_block ( $range , $offset ) #
#it consist to use recursivite in the project #
#################################################################################
sub gen_block
{
my ( $range , $offset ) = @_;
my $block_size = $range/$element_n;
my $i = 0;
my $j = 0;
my $k = 0;
my $t = 0;
my $str = "";
while ($i<$range){
$vector[$offset+$i].=$element[$k];
$str = $vector[$offset+$i];
$j= $j+1;
if ($j == $block_size){
$j = 0;
$k = $k+1;
$t = $t + $range;
print str_vec2str("\n",@vector);
}
gen_block($block_size,$t);
}
continue{
$i = $i+1;
}
}
#================================================================================
# MAIN
#================================================================================
my @aa;
&init_vector($vector_n);
@aa = &gen_block($vector_n,0);
print str_vec2str("\n",@vector);
print @aa;
exit 0

;

le petit probleme c ke jai une erreur de hash donc il y a un truc ke je fai pas comme il fo.
en fait moi ce ke je ve c ke cette fonction recursive me retourne un truc de ce style mais avec abcd:

Code :

CAPV
AAPV
PAPV
VAPV
CAPV
AAPV
PAPV
VAPV
CAPV
AAPV
PAPV
VAPV
CAVV
AAVV
PAVV
VAVV
CAVV
AAVV
PAVV
VAVV
CAVV
AAVV
PAVV
VAVV
CAVV
AAVV
PAVV
VAVV

ci dessus ce ke jai obtenue en faisant le test avec des boucles for ou while.et comme sa faisait tro de ligne mon maitre de stage( :kaola: ) ma di de faire avec la recursivite( :cry: ) jai reussi a l'ecrire mais pas a la faire fonctionner( :fou: ).
voila je sais jsuis chiant a tou le temps dmd mai je galer avec la recursivité :cry: ke je connaisai pas il y a encor 1 semaine

pospos

pk ton maitre de stage te demande ca??
ca ressemble plus à un exam qu'autre chose!
en plus en Perl al recursivité c'est loin d'etre efficace! Les boucles c'est bien mieux géré

royou1

bordeaux dans le coeur

c parce ke jai fai avec les boucles et le nombre de ligne de code est 4 fois plus important ke si jutilise la recursivite donc il ve sa pour reduire le nombre de ligne de code et pour ke japrene la recursivite.
jai essayer de mentrainer avec des tutos et du delphi pour comprendre la recursivite mais c vraiment chaud.

Tentacle

n'empêche que tu ne récupères toujours pas tes arguments dans la fonction init_vector.

Edit: j'ai rien dit, désolé :sweat: (oubli des portées de variables)

Message édité par Tentacle le 09-06-2004 à 17:29:10

Tentacle

Je crois que tu as un soucis sur ta condition d'arrêt. Si j'ai bien compris (à voir), ta condition d'arrêt est $i >= $range, soit $range=0 ce qui stopera la récursivité. Or ici tu envoies $range/$element_n pour $range. Au début $range=$vector_n=4**3=64, ensuite $range = 16, puis 4, puis 1, puis 1/4, puis 1/16 etc ... ce qui sera toujours strictement supérieur à 0

pospos

ben tu lui dira qu'en Perl la recurcivité c'est pas efficace: ca bouffe un max de memoire et c'est plus lent.

En gros voila l'explication: pour gagner en vitesse Perl garde la memoire alouée pour chaque variable d'une fonction qu'il a deja exectué. Par exemple si dans une fonction tu declare une varibale "my $a" et que tu lui alloue une chaine de 10ko, et ben meme si tu quite ta fonction Perl garde une memoire allouée à 10ko pour $a. Ca lui permet de ne pas réalouer la fois suivante, et donc de gagner en vitesse. Le probleme c'est qu'il est obligé de faire ca pour chaque niveau de recursion dans ta fonction, sans jamais libérer la memoire. Dans ton cas tu n'a pas ce probleme vu que tu utilise des variables globales, mais de toutes facons je ne pense pas queton maitre de stage sera tres content en voyant ca...

Sans compter le fait que les appels de fonction sont tout de meme assez lents en perl...

Rasthor

Tu as des cours de français dans ton stage ? :whistle:

Sinon tu n'utilises pas le couple

Code :

use strict;
use warnings;

royou1

bordeaux dans le coeur

:heink: hum sa commence a me gonfler cette recursivite( :cry: ) de m.... mais bon on me demande sa :fou: .
donc pour repondre a toute vos suggestion et vos conseils .
Aparament le probleme est bien sur la condition de sortie, ensuite

Citation :

rasthor a dit:Tu as des cours de français dans ton stage ? :whistle:

ben jecri a larache pour aller + vite et c labitude desd texto sur le tel.

et pour les fonctions oui jutilise la librairie use strict; mais pas celle use warnings;
bon en bref jsui pas ariver mais jai 2semaine( :pt1cable: ) pour essayer car il me reste 2 semaines de stage et jai deja fini le projet alors on ma dmd de loptimiser.

royou1

bordeaux dans le coeur

bon saye jai coriger la plupar des choses mais il me reste un bleme sur t :

Code :

sub gen_block
{
my ( $range , $offset ) = @_;
my $block_size = $range/$element_n;
my $i = 0;
my $j = 0;
my $k = 0;
my $t = 0;
print "------------------------------------------------------------------------------\n";
while (($i<$range) && ($block_size>=1) && ($offset<=($vector_n-$range)))
{ $vector[$offset+$i] .= $element[$k];
print "$range\t$block_size\t$offset\t$i\t$j\t$k\t$t\t".$element[$k]."\t".$vector[$offset+$i]."\n";
$j++;
if ($j == $block_size)
{ $k++;
$j = 0;
$t = $block_size*($k-1);
&gen_block($block_size,$t);
}
}
continue
{ $i++;
}
}

voila ce ke jobtient et il merde au 2eme tour de boucle:

Code :

range bsize offset i j k t el[k] vec[offset+i]
------------------------------------------------------------------------------
27 9 0 0 0 0 0 A -A
27 9 0 1 1 0 0 A -A
27 9 0 2 2 0 0 A -A
27 9 0 3 3 0 0 A -A
27 9 0 4 4 0 0 A -A
27 9 0 5 5 0 0 A -A
27 9 0 6 6 0 0 A -A
27 9 0 7 7 0 0 A -A
27 9 0 8 8 0 0 A -A
------------------------------------------------------------------------------
9 3 0 0 0 0 0 A -AA
9 3 0 1 1 0 0 A -AA
9 3 0 2 2 0 0 A -AA
------------------------------------------------------------------------------
3 1 0 0 0 0 0 A -AAA
------------------------------------------------------------------------------
3 1 0 1 0 1 0 B -AAB
------------------------------------------------------------------------------
3 1 0 2 0 2 1 C -AAC
------------------------------------------------------------------------------
9 3 0 3 0 1 0 B -AB
9 3 0 4 1 1 0 B -AB
9 3 0 5 2 1 0 B -AB
------------------------------------------------------------------------------
3 1 3 0 0 0 0 A -ABA
------------------------------------------------------------------------------
3 1 3 1 0 1 0 B -ABB
------------------------------------------------------------------------------
3 1 3 2 0 2 1 C -ABC
------------------------------------------------------------------------------
9 3 0 6 0 2 3 C -AC
9 3 0 7 1 2 3 C -AC
9 3 0 8 2 2 3 C -AC
------------------------------------------------------------------------------
3 1 6 0 0 0 0 A -ACA
------------------------------------------------------------------------------
3 1 6 1 0 1 0 B -ACB
------------------------------------------------------------------------------
3 1 6 2 0 2 1 C -ACC
------------------------------------------------------------------------------
27 9 0 9 0 1 0 B -B
27 9 0 10 1 1 0 B -B
27 9 0 11 2 1 0 B -B
27 9 0 12 3 1 0 B -B
27 9 0 13 4 1 0 B -B
27 9 0 14 5 1 0 B -B
27 9 0 15 6 1 0 B -B
27 9 0 16 7 1 0 B -B
27 9 0 17 8 1 0 B -B
------------------------------------------------------------------------------
9 3 9 0 0 0 0 A -BA
9 3 9 1 1 0 0 A -BA
9 3 9 2 2 0 0 A -BA
------------------------------------------------------------------------------
3 1 0 0 0 0 0 A -AAAA
------------------------------------------------------------------------------
3 1 0 1 0 1 0 B -AABB
------------------------------------------------------------------------------
3 1 0 2 0 2 1 C -AACC
------------------------------------------------------------------------------
9 3 9 3 0 1 0 B -BB
9 3 9 4 1 1 0 B -BB
9 3 9 5 2 1 0 B -BB
------------------------------------------------------------------------------
3 1 3 0 0 0 0 A -ABAA
------------------------------------------------------------------------------
3 1 3 1 0 1 0 B -ABBB
------------------------------------------------------------------------------
3 1 3 2 0 2 1 C -ABCC
------------------------------------------------------------------------------
9 3 9 6 0 2 3 C -BC
9 3 9 7 1 2 3 C -BC
9 3 9 8 2 2 3 C -BC
------------------------------------------------------------------------------
3 1 6 0 0 0 0 A -ACAA
------------------------------------------------------------------------------
3 1 6 1 0 1 0 B -ACBB
------------------------------------------------------------------------------
3 1 6 2 0 2 1 C -ACCC
------------------------------------------------------------------------------
27 9 0 18 0 2 9 C -C
27 9 0 19 1 2 9 C -C
27 9 0 20 2 2 9 C -C
27 9 0 21 3 2 9 C -C
27 9 0 22 4 2 9 C -C
27 9 0 23 5 2 9 C -C
27 9 0 24 6 2 9 C -C
27 9 0 25 7 2 9 C -C
27 9 0 26 8 2 9 C -C
------------------------------------------------------------------------------
9 3 18 0 0 0 0 A -CA
9 3 18 1 1 0 0 A -CA
9 3 18 2 2 0 0 A -CA
------------------------------------------------------------------------------
3 1 0 0 0 0 0 A -AAAAA
------------------------------------------------------------------------------
3 1 0 1 0 1 0 B -AABBB
------------------------------------------------------------------------------
3 1 0 2 0 2 1 C -AACCC
------------------------------------------------------------------------------
9 3 18 3 0 1 0 B -CB
9 3 18 4 1 1 0 B -CB
9 3 18 5 2 1 0 B -CB
------------------------------------------------------------------------------
3 1 3 0 0 0 0 A -ABAAA
------------------------------------------------------------------------------
3 1 3 1 0 1 0 B -ABBBB
------------------------------------------------------------------------------
3 1 3 2 0 2 1 C -ABCCC
------------------------------------------------------------------------------
9 3 18 6 0 2 3 C -CC
9 3 18 7 1 2 3 C -CC
9 3 18 8 2 2 3 C -CC
------------------------------------------------------------------------------
3 1 6 0 0 0 0 A -ACAAA
------------------------------------------------------------------------------
3 1 6 1 0 1 0 B -ACBBB
------------------------------------------------------------------------------
3 1 6 2 0 2 1 C -ACCCC
------------------------------------------------------------------------------

au lieu de faire des combis de 3 el fait des combis de 5 bizare non et le bleme il vien de sa:

Code :

$t = $block_size*($k-1);

:ange: merci de maider svp

royou1

bordeaux dans le coeur

e sans dec yen a pas un ki peut me dire ce ki va pas .

---------------
bordeaux:nos chants et notre amour n' ont pas de frontiere car notre maillot au scapulaire est un maillot legendaire.

Rasthor

royou1 a écrit :

e sans dec yen a pas un ki peut me dire ce ki va pas .

Ton français

pospos

Royou1, tu fais koi de tes journée si 10 jours t'arrive pas à regler ce problème?
Un stage c'est fait pour apprendre, alors apprend

royou1

bordeaux dans le coeur

vous inkiete pas le probleme est regler
si yen a ki veule la solution je la posterai.

---------------
bordeaux:nos chants et notre amour n' ont pas de frontiere car notre maillot au scapulaire est un maillot legendaire.

Publicité

FORUM HardWare.fr

Programmation

Perl

probleme de recursivite

Sujets relatifs
ASP.NET - Probleme dans l'envoi de email!	Probleme avec le .profile (sous Suse linux)
probleme de reaffichage dans un shell deja ouvert[SWT]	[JFreeReport]Problème d'affichage de l'entete ???????
Probleme mise en page html a cause de photos	Problème avec une variable !!
[css] problème de position de menu	Problème xpath : compter le nombre de noeud ?
Probleme de session lors des redirections	petit probleme de recursivité
Plus de sujets relatifs à : probleme de recursivite

Page générée en 0.126 secondes