perl6如何实现这个功能?

w123456_cu

1. use v6;
   
2. my @a = (3,2,2,1,1);
   
3. #每个元素加上所有比它小的数,构成一新的数组。比如
   
4.   #@b = ( 9,4,4,1,1）;

复制代码

zhlong8

想不出聪明办法前我们可以先用笨方法

perl5

use 5.010;
use List::Util 'sum0';
@b = map { my $tmp = $_; sum0 $tmp, grep $tmp > $_ , @a } @a;

104359176

1. > perl6
   
2. > my @a = (1,2,3,4)
   
3. 1 2 3 4
   
4. > @a.map: { my $n = $_; [+] @a.grep: {$_ <= $n} }
   
5. 1 3 6 10
   
6. >

复制代码

w123456_cu

@104359176 谢谢， 学习