迭代字符串(UAX#29)

dax*_*xim 7 perl6

say $s.substr($_, 1) for 0..^$s.chars
Run Code Online (Sandbox Code Playgroud)

是我能找到的最短的.你能把它打到合理的尺寸并避免重复吗?

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

Jon*_*ton 14

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

.say for $s.comb;
Run Code Online (Sandbox Code Playgroud)

将做什么是期望的(并且也比Perl 5版本短:-)).