diff options
| author | andrezgz <andrezgz@gmail.com> | 2019-06-01 01:31:18 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-06-01 01:31:18 -0300 |
| commit | af37f3ec27af04d0c10e11bb33b46d27fa2c68f1 (patch) | |
| tree | 7ff3ea010dac4c00cc81097d47715593bbce3777 /challenge-010/andrezgz | |
| parent | e9ff2330e783e2ee693feecbdcddf464d55cdc36 (diff) | |
| download | perlweeklychallenge-club-af37f3ec27af04d0c10e11bb33b46d27fa2c68f1.tar.gz perlweeklychallenge-club-af37f3ec27af04d0c10e11bb33b46d27fa2c68f1.tar.bz2 perlweeklychallenge-club-af37f3ec27af04d0c10e11bb33b46d27fa2c68f1.zip | |
challenge-010 andrezgz ch-1 opt
Diffstat (limited to 'challenge-010/andrezgz')
| -rw-r--r-- | challenge-010/andrezgz/perl5/ch-1.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/challenge-010/andrezgz/perl5/ch-1.pl b/challenge-010/andrezgz/perl5/ch-1.pl index b740d20acb..beed25baaf 100644 --- a/challenge-010/andrezgz/perl5/ch-1.pl +++ b/challenge-010/andrezgz/perl5/ch-1.pl @@ -56,16 +56,17 @@ sub _is_valid_roman { sub encode_roman { my $number = shift; - my $roman_number; + my $roman; foreach my $r (sort { $roman_table{$b} <=> $roman_table{$a} } keys %roman_table) { my $d = int($number / $roman_table{$r}); next unless $d; - $roman_number .= $r x $d; + $roman .= $r x $d; $number -= $roman_table{$r} * $d; + last unless $number; } - return $roman_number; + return $roman; } sub decode_roman { |