遍历字符串(UAX#29)

时间:2018-12-23 01:14:37

标签: perl6

say $s.substr($_, 1) for 0..^$s.chars

是我能找到的最短的。您能打到合理的尺寸并避免重复吗?

Perl 5较短:say for split /\b{g}/, $s

1 个答案:

答案 0 :(得分:14)

不带参数的comb方法将挑选出每个字符,因此:

.say for $s.comb;

将执行所需的操作(并且比Perl 5版本还短:-))。