Help for this page

Select Code to Download


  1. or download this
    increment left col ("carry") <- '0' -> '1' -> .. '9' (digits)
                                 ^                |
...
                                 ^                |
                                 |                |
                                 +----------------+
  2. or download this
    c:\@Work\Perl\monks>perl -e "my $s = 'zZ9';  print qq{'$s' -> };  ++$s
+;  print qq{'$s'};"
'zZ9' -> 'aaA0'
...
'zzzz9' -> 'aaaaa0'
c:\@Work\Perl\monks>perl -e "my $s = 'ZZZZ9';  print qq{'$s' -> };  ++
+$s;  print qq{'$s'};"
'ZZZZ9' -> 'AAAAA0'