64 lines
1.3 KiB
Raku
64 lines
1.3 KiB
Raku
package DDG::Goodie::Phonetic;
|
|
# ABSTRACT: Take a string and spell it out phonetically using the NATO alphabet
|
|
|
|
use DDG::Goodie;
|
|
|
|
triggers start => 'phonetic';
|
|
|
|
zci is_cached => 1;
|
|
|
|
handle remainder => sub {
|
|
sub components {
|
|
$_ = lc($_);
|
|
my %nato = (
|
|
a => "Alfa",
|
|
b => "Bravo",
|
|
c => "Charlie",
|
|
d => "Delta",
|
|
e => "Echo",
|
|
f => "Foxtrot",
|
|
g => "Golf",
|
|
h => "Hotel",
|
|
i => "India",
|
|
j => "Juliet",
|
|
k => "Kilo",
|
|
l => "Lima",
|
|
m => "Mike",
|
|
n => "November",
|
|
o => "Oscar",
|
|
p => "Papa",
|
|
q => "Quebec",
|
|
r => "Romeo",
|
|
s => "Sierra",
|
|
t => "Tango",
|
|
u => "Uniform",
|
|
v => "Victor",
|
|
w => "Whiskey",
|
|
x => "Xray",
|
|
y => "Yankee",
|
|
z => "Zulu",
|
|
1 => "One",
|
|
2 => "Two",
|
|
3 => "Three",
|
|
4 => "Four",
|
|
5 => "Five",
|
|
6 => "Six",
|
|
7 => "Seven",
|
|
8 => "Eight",
|
|
9 => "Nine",
|
|
0 => "Zero"
|
|
);
|
|
my @chars = grep { $_ ~~ %nato } split(//, $_);
|
|
my @components = map { $nato{ $_ } } @chars;
|
|
return join("-", @components);
|
|
}
|
|
|
|
if ($_) {
|
|
my @words = split(/\s+/, $_);
|
|
my @phonetics = map { components($_) } @words;
|
|
return "Phonetic: " . join(" ", @phonetics);
|
|
}
|
|
return;
|
|
};
|
|
|
|
1; |