blob: 2b5bd44397938563e306a9440a768456871c16f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/env perl6
#
#
# numbrs-without-th-lttr-.raku
#
#
#
# © 2021 colin crain
## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
unit sub MAIN () ;
my @ones = < ∅ one two three four five six seven eight nine >;
my @tens = < ∅ ten twenty thirty forty fifty sixty seventy eighty ninety >;
my %teens = < ten-one eleven
ten-two twelve
ten-three thirteen
ten-four fourteen
ten-five fifteen
ten-six sixteen
ten-seven seventeen
ten-eight eighteen
ten-nine nineteen >;
my @out = ([X] @tens, @ones).map: *.join('-');
for @out {
s:g/ ^ \∅\- | \-?\∅ $ //;
s/ $_ /%teens{$_}/ if %teens{$_}:exists;
}
@out.shift;
.say for @out.grep:{ ! /e/ };
|
