RosettaCodeData/Task/Reverse-a-string/Perl/reverse-a-string-2.pl
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
104 B
Raku

$string = "Jose\x{301}"; # "José" in NFD
$flip = join("", reverse $string =~ /\X/g); # becomes "ésoJ"