Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

my $n = 0;
say qq{@{[ sprintf q{%2d}, $n ++ ] }: @$_} for @rects;
  2. or download this
     0: 4 0
 1: 4 2
...
 9: 0 1
10: 0 2
11: 0 3
  3. or download this
    use strict;
use warnings;
...

my $n = 0;
say qq{@{[ sprintf q{%2d}, $n ++ ] }: @$_} for @rects;