Help for this page

Select Code to Download


  1. or download this
    $ perl -MData::Dump -e '$a="abc";for(1..6){ $a=~m/.|$/g; dd \@-,\@+ }'
([0], [1])
...
([3], [3])
([3], [3])
([0], [1])
  2. or download this
    $ perl -MData::Dump -e '$a="abc";for(1..6){$a=~m/(.|$)/g; dd \@-,\@+}'
([0, 0], [1, 1])
...
([3, 3], [3, 3])
([3], [3, 3])
([0, 0], [1, 1])