On Sat Jul 24 07:42:49 2010, cognominal wrote:
> I don't know if this is a problem with my code, with the Rakudo
> implementation or the spec.
> I end up with a Seq at $a[3] where I want an Array. This is not
> indifferent because if I later handle the resulting data comparing
> with eqv a Seq with an Array never returns true.
>
>
> $ perl6
> > my $a = [ "this", "is", "so", "gross" ]; my $b = [ "that", "is",
> "so", "funny" ]; my $c = $b[2..3]; $a[3] = @( $c ); say $a.perl
> ["this", "is", "so", ("so", "funny")]
> > my $a = [ "this", "is", "so", "gross" ]; my $b = [ "that", "is",
> "so", "funny" ]; my $c = $b[2..3]; $a[3] = $c ; say $a.perl
> ["this", "is", "so", ("so", "funny")]
> > my $a = [ "this", "is", "so", "gross" ]; my $b = [ "that", "is",
> "so", "funny" ]; my $c = $b[2..3]; $a[3] = $c ; say $a[3].WHAT
> Seq()
This now gives a Parcel() instead of a Seq:
14:35 < [Coke]> rakudo: my $a = [ "this", "is", "so", "gross" ]; my $b =
[
"that", "is", "so", "funny" ]; my $c = $b[2..3]; $a[3] =
$c ;
say $a[3].WHAT
14:35 <+p6eval> rakudo 1c2c2d: OUTPUT«Parcel()»
> $ perl6
> > say @( 1, 2).perl; my $a = (1,2); say @( $a ).perl; my @a = (1,2);
> say @a.perl;
> (1, 2)
> (1, 2)
> [1, 2]
> > say (1, 2) eqv [1, 2]
> 0
>
--
Will "Coke" Coleda
