From @moritz

Rakudo r30946​:

08​:35 < masak> rakudo​: .perl.say for {a => ["b", "c"]}.kv # I have a fun
bug
  for you, too! :)
08​:35 < polyglotbot> OUTPUT["a"␤"b c"␤]

that should have been ["b", "c"] on the second line

08​:38 <@​moritz> rakudo​: my %a = (a => [[3], [4,5]]); say %a<a>.perl
08​:38 < polyglotbot> OUTPUT[[3, 4, 5]␤]

the should have been [[3], [4,5]]

It seems they are even stored flat​:

08​:56 <@​moritz> rakudo​: my %a = (a => [[3], [4,5]]); say %a.perl
08​:56 < polyglotbot> OUTPUT[{"a" => [3, 4, 5]}␤]

This is the bug that makes t/spec/S29-num/rounders.t so ugly (take a
look at the fudge lines to see what I mean)

Moritz

--
Moritz Lenz
http://moritz.faui2k3.org/ | http://perl-6.de/

From @moritz

Moritz Lenz (via RT) wrote​:

# New Ticket Created by Moritz Lenz
# Please include the string​: [perl #​58744]
# in the subject line of all future correspondence about this issue.
# <URL​: http://rt.perl.org/rt3/Ticket/Display.html?id=58744 >

Rakudo r30946​:

08​:35 < masak> rakudo​: .perl.say for {a => ["b", "c"]}.kv # I have a fun
bug
for you, too! :)
08​:35 < polyglotbot> OUTPUT["a"␤"b c"␤]

that should have been ["b", "c"] on the second line

08​:38 <@​moritz> rakudo​: my %a = (a => [[3], [4,5]]); say %a<a>.perl
08​:38 < polyglotbot> OUTPUT[[3, 4, 5]␤]

the should have been [[3], [4,5]]

It seems they are even stored flat​:

08​:56 <@​moritz> rakudo​: my %a = (a => [[3], [4,5]]); say %a.perl
08​:56 < polyglotbot> OUTPUT[{"a" => [3, 4, 5]}␤]

Some more insight, found out by bacek and Tene on #parrot​:

$ ./perl6 -e '(a => [[1], [2]]).perl.say'
("a" => [[1], [2]])
$ ./perl6 -e 'my %a = (a => [[1], [2]]); %a.perl.say'
{"a" => [1, 2]}
$ ./perl6 -e 'my $a = (a => [[1], [2]]); $a.perl.say'
("a" => [[1], [2]])

So it seems that the flattening happens when assigning the hash to a %h
container, but not when assigning to a $a scalar container.

Moritz

--
Moritz Lenz
http://moritz.faui2k3.org/ | http://perl-6.de/

From @pmichaud

On Wed, Sep 10, 2008 at 12​:22​:01PM +0200, Moritz Lenz wrote​:

Moritz Lenz (via RT) wrote​:

08​:35 < masak> rakudo​: .perl.say for {a => ["b", "c"]}.kv # I have a fun
bug
for you, too! :)
08​:35 < polyglotbot> OUTPUT["a"␤"b c"␤]

that should have been ["b", "c"] on the second line

Now fixed in r30967. The problem is that the .kv method was
always stringifying the values of the output list. To illustrate​:

$ ../../parrot perl6.pbc

my %a = ('a' => 3 ); say %a.perl; say %a.kv.perl;
{"a" => 3}
["a", "3"]

Note how the hash correctly has an Int 3 but the list produced
by .kv had a Str "3".

08​:38 <@​moritz> rakudo​: my %a = (a => [[3], [4,5]]); say %a<a>.perl
08​:38 < polyglotbot> OUTPUT[[3, 4, 5]␤]
the should have been [[3], [4,5]]

This looks to me like the generic problem that Rakudo is having
with nested arrays in general, and not specific to hashes. So I'll
close this ticket for the .kv problem and we can open another one
that deals with Rakudo incorrectly constructing arrays (not having
anything to do with hashes).

Thanks!

Pm

The RT System itself - Status changed from 'new' to 'open'

From @bacek

Patrick R. Michaud wrote​:

that should have been ["b", "c"] on the second line

Now fixed in r30967. The problem is that the .kv method was
always stringifying the values of the output list. To illustrate​:

.values still stringifying values.

Trivial patch attached.

--
Bacek.

From @bacek

diff --git a/languages/perl6/src/classes/Mapping.pir b/languages/perl6/src/classes/Mapping.pir
index d83d980..abca0b1 100644
--- a/languages/perl6/src/classes/Mapping.pir
+++ b/languages/perl6/src/classes/Mapping.pir
@@ -136,8 +136,8 @@ Returns elements of hash as array of C<Pair(key, value)>
   loop:
     unless iter goto end
     $S1 = shift iter
-    $S1 = iter[$S1]
-    push rv, $S1
+    $P1 = iter[$S1]
+    push rv, $P1
     goto loop
   end:
     .return (rv)

From @pmichaud

Now fixed in r32441. Here are the results​:

$ ./parrot perl6.pbc

.perl.say for {a => [<b c>]}.kv
"a"
["b", "c"]
my %a = (a => [[3], [4,5]]); say %a<a>.perl
[[3], [4, 5]]
my %a = (a => [[3], [4,5]]); say %a.perl;
{"a" => [[3], [4, 5]]}
(a => [[1], [2]]).perl.say
("a" => [[1], [2]])
my %a = (a => [[1], [2]]); %a.perl.say;
{"a" => [[1], [2]]}
my $a = (a => [[1], [2]]); $a.perl.say;
("a" => [[1], [2]])

Thanks!

Pm

@pmichaud - Status changed from 'open' to 'resolved'