перебрать строку (UAX # 29)

Question

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

- самое короткое, что я могу найти.Можете ли вы играть в гольф до разумного размера и избежать повторения?

Perl 5 короче: say for split /\b{g}/, $s

Answer 1

Метод comb без аргумента выберет каждый символ, поэтому:

.say for $s.comb;

Будет делать то, что нужно (и короче, чем версия Perl 5: -)).