标签: perl6
say $s.substr($_, 1) for 0..^$s.chars
是我能找到的最短的。您能打到合理的尺寸并避免重复吗?
Perl 5较短:say for split /\b{g}/, $s
say for split /\b{g}/, $s
答案 0 :(得分:14)
不带参数的comb方法将挑选出每个字符,因此:
comb
.say for $s.comb;
将执行所需的操作(并且比Perl 5版本还短:-))。