Help for this page

Select Code to Download

Select or download this
```
@digits = 0 if !@digits;
```

Select or download this

my @digits;
do {
   unshift @digits, $num % 20;
   $num = ( $num - ( $num % 20 ) ) / 20;
} while $num > 0;