diff options
| author | KUEPPO <tcheukueppo@tutanota.com> | 2022-10-16 22:21:04 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-10-16 22:21:04 +0100 |
| commit | 77ba3e4c7c0377b2df0c63f068813e25c6163af0 (patch) | |
| tree | 1ec6409adf75eab36e9aff84e864564e32efb368 | |
| parent | d768fd5dff3cf81924cab3968013a210cd5f609d (diff) | |
| download | perlweeklychallenge-club-77ba3e4c7c0377b2df0c63f068813e25c6163af0.tar.gz perlweeklychallenge-club-77ba3e4c7c0377b2df0c63f068813e25c6163af0.tar.bz2 perlweeklychallenge-club-77ba3e4c7c0377b2df0c63f068813e25c6163af0.zip | |
pwc-186, ch-2 in Raku
| -rw-r--r-- | challenge-186/kueppo-wesley/Raku/ch-2.raku | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-186/kueppo-wesley/Raku/ch-2.raku b/challenge-186/kueppo-wesley/Raku/ch-2.raku new file mode 100644 index 0000000000..45889c6e65 --- /dev/null +++ b/challenge-186/kueppo-wesley/Raku/ch-2.raku @@ -0,0 +1,8 @@ +#!/usr/bin/env raku + +sub makeover( $string ) { + NFKD( $string ).map( { .chr.encode('ascii', :replacement('')).decode('ascii') } ).join().say; +} + +makeover( "ÃÊÍÒÙ" ); +makeover( "âÊíÒÙ" ); |