XXXX redacted: Difference between revisions
→{{header|Raku}}: Add and even more complicated stretch
Thundergnat (talk | contribs) (Minor tweaks) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add and even more complicated stretch) |
||
Line 83:
# TESTING
my $test = q<Tom? Toms bottom tomato is in his stomach while playing the "Tom-tom" brand tom-toms. That's so tom.>; #'
for 'Tom', 'tom' -> $redact {
Line 99:
my $emoji = '🧑 👨 🧔 👨👩👦';
printf "
printf "%20s %s\n", "Redact '👨' [w]", $emoji.&redact('👨');
printf "%20s %s\n", "Redact '👨👩👦' [w]", $emoji.&redact('👨👩👦');
# Even more complicated Unicode
$emoji = 'Argentina🧑🇦🇹 France👨🇫🇷 Germany🧔🇩🇪 Netherlands👨👩👦🇳🇱';
printf "\n%20s %s\n", '', $emoji;
printf "%20s %s\n", "Redact '👨' [p|o]", $emoji.&redact('👨', :p, :o);
printf "%20s %s\n", "Redact '👨👩👦' [o|o]", $emoji.&redact('👨👩👦', :p, :o);</lang>
{{out}}
<pre>Redact 'Tom':
Line 119 ⟶ 126:
[p|i|o] XXX? XXXX XXXXXX XXXXXX is in his XXXXXXX while playing the "XXXXXXX" brand XXXXXXXX. That's so XXX.
🧑 👨 🧔 👨👩👦
Redact '👨' [w] 🧑 X 🧔 👨👩👦
Redact '👨👩👦' [w] 🧑 👨 🧔 X
Argentina🧑🇦🇹 France👨🇫🇷 Germany🧔🇩🇪 Netherlands👨👩👦🇳🇱
Redact '👨' [p|o] Argentina🧑🇦🇹 XXXXXXXX Germany🧔🇩🇪 Netherlands👨👩👦🇳🇱
Redact '👨👩👦' [o|o] Argentina🧑🇦🇹 France👨🇫🇷 Germany🧔🇩🇪 XXXXXXXXXXXXX
</pre>
| |||