Назначение массива perl6: указатель или копия?

Question

В perl6 я хочу назначить массив другому массиву и получить результирующий массив как отдельную сущность, но, похоже, ни прямое назначение, ни клонирование не могут делать то, что я хочу. Есть ли способ скопировать массив с одним выражением вместо написания цикла?

To exit type 'exit' or '^D' 
> my @a=<a b c d e> 
[a b c d e] 
> my @b = <1 2 3 4 5 6 7> 
[1 2 3 4 5 6 7] 
> my @c = @a 
[a b c d e] 
> @c[3] 
d 
> @c[3]=3; 
3 
> @c 
[a b c 3 e] 
> @a 
[a b c d e] 
> @c === @a 
False 
> @c == @a 
True   # this is unexpected, @c and @a should be different, right? 
> my @x=@a.clone 
[a b c d e] 
> @x[3]=3 
3 
> @x 
[a b c 3 e] 
> @x === @a 
False 
> @x == @a 
True   # unexpected, @x and @a should be distinct things, right? 
> 

спасибо!

lisprog

Answer 1

Вы не повезло, не сравнить с @b, которые могли бы помочь вам понять это :)

== является числовое сравнение, поэтому, когда вы попросили список для сравнения как число он выбрал количество элементов как представление. Операторы в Perl 5 или 6 принуждают задействованные типы. Если вы хотите проверить, являются ли элементы массива одинаковыми, попробуйте оператор eqv.

Сравнение длины массивов, так что справедливо следующее:

@a == @c == @x == 5 

Try:

my @a = <a b c d e>; 
my @b = <1 2 3 4 5>; 
@a eqv @b; 

Вы можете проверить некоторые из документации вокруг этих операторов. Умный матч ~~ оператор, вероятно, больше того, что вы ожидали от ==.

https://docs.perl6.org/routine/$EQUALS_SIGN$EQUALS_SIGN https://docs.perl6.org/routine/$TILDE$TILDE