Chinaunix

标题: perl6 对矩阵的操作？ [打印本页]

作者: w123456_cu 时间: 2015-10-27 14:29
标题: perl6 对矩阵的操作？
假定有个n*m的矩阵

作者: xie3ks 时间: 2015-10-27 16:09
用二维数组

作者: ba_du_co 时间: 2015-10-27 16:28
回复 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 时间: 2015-10-27 20:46
本帖最后由 w123456_cu 于 2015-10-27 21:19 编辑

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

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

复制代码

作者: ba_du_co 时间: 2015-10-27 21:51
回复 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 时间: 2015-10-27 22:01

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)