sergiotarxz/15giftsTask
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Removing last to have better practices.

Browse Source
This commit is contained in:
Sergiotarxz 2023-11-14 12:16:22 +01:00
parent d7a80c2c47
commit a9d0fe9017
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
number_generator.pl
View File

@ -26,23 +26,26 @@ sub main {
} }
sub convert_number_to_words($number) { sub convert_number_to_words($number) {
my $return = ''; my $return = generate_number_without_uppercase_and_end_marks($number);
{
if ($number < 1) {
$return .= 'zero';
last;
}
append_millions_to_return(\$number, \$return);
append_thousand_hundreds(\$number, \$return);
append_decene_thousands(\$number, \$return);
append_hundred(\$number, \$return);
append_decene(\$number, \$return);
}
$return =~ s/(\w)/\U$1/; $return =~ s/(\w)/\U$1/;
$return .= '.'; $return .= '.';
return $return; return $return;
} }
sub generate_number_without_uppercase_and_end_marks($number) {
my $return = '';
if ($number < 1) {
$return .= 'zero';
return $return;
}
append_millions_to_return(\$number, \$return);
append_thousand_hundreds(\$number, \$return);
append_decene_thousands(\$number, \$return);
append_hundred(\$number, \$return);
append_decene(\$number, \$return);
return $return;
}
sub append_decene($number_ref, $return_ref) { sub append_decene($number_ref, $return_ref) {
my $number = ${$number_ref}; my $number = ${$number_ref};
my $decene = int ($number / 1); my $decene = int ($number / 1);
@ -78,13 +81,13 @@ sub convert_two_chars_number_to_words($number) {
{ {
if ($number < 20) { if ($number < 20) {
$return .= $numbers_one_to_nineteen[$number-1]; $return .= $numbers_one_to_nineteen[$number-1];
last; return $return;
} }
my $decene = int($number / 10); my $decene = int($number / 10);
$return .= $decenes[$decene-1]; $return .= $decenes[$decene-1];
my $unit = $number % 10; my $unit = $number % 10;
if ($unit < 1) { if ($unit < 1) {
last; return $return;
} }
$return .= '-'; $return .= '-';
$return .= $numbers_one_to_nine[$unit-1]; $return .= $numbers_one_to_nine[$unit-1];