diff options
| author | LapVeesh <rabbiveesh@gmail.com> | 2019-04-21 10:53:17 +0300 |
|---|---|---|
| committer | LapVeesh <rabbiveesh@gmail.com> | 2019-04-21 10:53:17 +0300 |
| commit | 2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24 (patch) | |
| tree | 10606aaa77369b41bf3ebc5d520cb6ed7b62f65f /challenge-002 | |
| parent | dfbc57749888066b163267bda3801bd66ca5b1de (diff) | |
| download | perlweeklychallenge-club-2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24.tar.gz perlweeklychallenge-club-2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24.tar.bz2 perlweeklychallenge-club-2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24.zip | |
Added answer to easy challenge for week 4
Diffstat (limited to 'challenge-002')
| -rw-r--r-- | challenge-002/veesh-goldman/perl5/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-002/veesh-goldman/perl5/ch-2.pl b/challenge-002/veesh-goldman/perl5/ch-2.pl index 59fb74872a..1d67909982 100644 --- a/challenge-002/veesh-goldman/perl5/ch-2.pl +++ b/challenge-002/veesh-goldman/perl5/ch-2.pl @@ -8,12 +8,12 @@ while (my ($index, $element) = each @to_table) { sub convert_to { my $x = shift; my $pow = 1; my @ret; - while ($x > 0) { + do { my $digit = $x % 35; unshift @ret, $to_table[$digit]; $x -= $digit; $x /= 35; - } + } while $x > 0; return join '', @ret } |