RosettaCodeData/Task/Deepcopy/Perl-6/deepcopy-1.pl6

7 lines
93 B
Raku
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
my %x = foo => 0, bar => [0, 1];
my %y = %x.deepmap(*.clone);
%x<bar>[1]++;
say %x;
say %y;