Mauvaise utilisation de la fonction map en perl 6 ?

Bonjour,

Commençant en perl6, paf, je tombe sur un comportement étrange.
Ce code-ci ne fonctionne pas (enfin comme je voudrais)

Code:

---

1 2 3 4 5 6 7 8 9

!/home/alain/rakudo-star-2016.01/install/bin/perl6   sub createObj(Str $line) { say split " ",$line; map {say $_}, split " ",$line; # return; }   map {createObj($_)}, ("a b","c d");

---

Il n'exécute que la ligne 4.

Code:

---

1 2	(a b) (c d)

---

Si j'inverse la ligne 4 et 5, ou si je rajoute le "return", il fonctionne comme je le désire.

Code:

---

1 2 3 4 5 6

(a b) a b (c d) c d

---

Une idée ?

Bonjour,

je pense que ton utilisation de map n'est pas bonne. La principale fonction de map est de renvoyer une liste de valeurs (en fait un type Seq) que l'on peut affecter à un tableau ou utiliser dans un autre opérateur de liste. Ici, tu utilises map sans contexte de retour, ce qui n'est pas bon. Comme la fonction map est paresseuse, je pense qu'elle considère dans ton code qu'elle n'a pas besoin de s'exécuter et donc ne fait rien.

Il vaut mieux utiliser une boucle for.

Code:

---

1 2 3 4 5 6

sub createObj(Str $line) { say $_ for split " ", $line; }   map {createObj($_)}, ("a b","c d");

---

Ce qui imprime:

Code:

---

1 2 3 4 5

a b c d

---

Ou alors simplement imposer un contexte de liste obligeant map à remplir un tableau en sortie:

Code:

---

1 2 3 4 5 6

sub createObj(Str $line) { my @array = map {say "$_"}, split " ", $line; }   map {createObj($_)}, ("a b","c d");

---

ce qui imprime la même chose que précédemment. Comme map doit remplir le tableau @array, du coup elle s'exécute vraiment et son effet de bord (l'impression des valeurs) se manifeste. Mais, même si ça permet d'obtenir le résultat que tu recherches, ce n'est pas la bonne manière de faire, une boucle for est bien meilleure.

Le map de la dernière ligne (celle appelant la fonction createObj) est également mal utilisé à mon avis (même si ça ne gêne pas ici), il vaudrait mieux utiliser un for:

Code:

---

1 2	createObj $_ for "a b", "c d";

---

Ou avec un bloc pointu:

Code:

---

1 2 3 4

for "a b", "c d" -> $string { createObj $string; }

---

Bonjour,

Bien le merci.

J'ai sans doute pris de mauvais habitude, car en perl5, ça fonctionne.

Mais en effet, autant utiliser le "for".
Bon, j'ai bien l'intention de faire quelque chose de mon map, mais comme je commence, je voulais savoir si mon split fonctionnait avant d'aller plus loin, vu qu'il faut faire attention à la nouvelle ponctuation, sigil,...

Bien le merci.

Bonjour,

J'ai renommé le titre de ta discussion pour qu'elle colle mieux au problème.
Il faudrait dire aux développeurs Perl5 dès que l'occasion se présente de bien utiliser la fonction map afin de prendre de bonnes habitudes.

Merci pour vos réponses :ccool: !