perl6 对矩阵的操作？

w123456_cu

假定有个n*m的矩阵

xie3ks

用二维数组

xie3ks

用二维数组

ba_du_co

回复 1# w123456_cu

#!perl6

my @m =
    [ 2, 2, 1 ],
    [ 3, 2, 0 ];

my $s  = [+] @m.map(|*);
my @m1 = @m.map: { $_ <</>> [+] @$_ };
my @m2 = [Z] ([Z] @m).map: { $_ <</>> [+] @$_ };
my @m3 = @m.map: { $_ <</>> $s };




   

w123456_cu

谢谢@ba_du_co  大虾 。   代码@m2貌似需要过渡下

1. my @mm= ([Z] @m).map: { $_ <</>> [+] @$_ };
   
2. 
   
3. my @m2= [Z] @mm;

复制代码

ba_du_co

回复 5# w123456_cu

  
> slurp 'm.p6'
my @m =
    [ 2, 2, 1 ],
    [ 3, 2, 0 ];

my $s  = [+] @m.map(|*);
my @m1 = @m.map: { $_ <</>> [+] @$_ };
my @m2 = [Z] ([Z] @m).map: { $_ <</>> [+] @$_ };
my @m3 = @m.map: { $_ <</>> $s };

.perl.say for @m1, @m2, @m3;


> qx[perl6 m.p6]
[[0.4, 0.4, 0.2], [0.6, 0.4, 0.0]]
[(0.4, 0.5, 1.0), (0.6, 0.5, 0.0)]
[[0.2, 0.2, 0.1], [0.3, 0.2, 0.0]]

> qx[perl6 --version]
This is perl6 version 2015.10-11-g75ac71b built on MoarVM version 2015.10-2-gf80c129

>

   

w123456_cu