Discussion :

[Zuthos]

Bonjour,

Je souhaite intervertir les lignes d'un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Titi
Toto
kouign
Perl6
vim
computer
amann
radis

Et donc de passer la ligne 7 à la ligne 4 comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Titi
Toto
kouign
amann
Perl6
vim
computer
radis

Après avoir créé mon tableau, je ne sais pas trop quoi faire:

Existe t-il une méthode du style @Tb.move(7,4) qui déplace la ligne 7 à la ligne 4

[Lolo78]

Bonjour,

si tu parles bien d'un tableau (et non d'un fichier), alors la fonction splice fait certainement ce que tu cherches à faire.

[Zuthos]

Merci,

Je regarde ça de plus près.

[Zuthos]

Voila, cela fonctionne. Je vous mets la fonction au cas ou quelqu'un en aurais besoin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
sub move (@TB , Int $Start , Int $End , $deplace){
	my Int $i;
	my @transition;
	my @retour;
	if $Start > $End {
		$i = $Start;
		$Start = $End;
		$End = $i;
	}
	@transition = @TB.splice($Start -1 , $End - $Start -1);
	$i=0;
	for @TB {
		if $i != $deplace - 1 { @retour.push($_);} else {
			@retour.push(' ');
			for @transition -> $t {@retour.push($t);}
			@retour.push(' ');
			@retour.push($_);
		}
		$i++;
	}
	#for @retour {say $_;}
	return @retour,
}

Il faut mettre en argument le tableau source @TB, le début de la partie à déplacer $Start, la fin $End et enfin ou mettre la partie à déplacer $deplaceOn peut certainement améliorer cela. Notament, je ne suis pas sur que cela fonctionne en voulant déplacer vers la fin.

J'aurais bien voulu créer une méthode pour pouvoir l'utiliser comme cela @Tb.move($Start , $End , $deplace)Mais, je suis pas sur que ce soit possible

[Lolo78]

Bonjour,

pour intervertir deux éléments, il y a plus simple que ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
	if $Start > $End {
		$i = $Start;
		$Start = $End;
		$End = $i;
	}

En fait, il n'y a pas besoin de la variable temporaire $i, il suffit d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
($Start, $End) = ($End, $Start) if $Start > $End;

Sinon, voici sous le REPL un exemple de code utilisant deux fois splice pour faire le déplacement d'un élément :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
> say @tb
[Titi Toto kouign Perl6 vim computer amann radis]
> my $elem = splice @tb, 6, 1;         # enlève l'élément numéro 6 du tableau et le renvoie dans la variable $elem
[amann]
> say @tb
[Titi Toto kouign Perl6 vim computer radis]
> splice  @tb, 3, 0, $elem;            # insère l'élément récupéré en position 4
[]
> say @tb
[Titi Toto kouign amann Perl6 vim computer radis]
>

Voici une fonction move qui doit faire à peu près ce que tu recherches si j'ai bien compris (déplacer un élément de la position $start vers la position $end) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
sub move (@tab, Int $start, Int $end) {
    my $elem = splice @tab, $start, 1;
    splice  @tab, $end, 0, $elem;
}

A l'utilisation sous le REPL, cela donne par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
> my @tb = < Titi Toto kouign Perl6 vim computer amann radis>;
[Titi Toto kouign Perl6 vim computer amann radis]
> move @tb, 6, 3;
[]
> say @tb
[Titi Toto kouign amann Perl6 vim computer radis]
>