Help for this page

Select Code to Download


  1. or download this
      -1   -1
  -1    1
   1   -1
   1    1
  2. or download this
              |
 (-1, 1)  |  ( 1, 1)
...
          |
 (-1,-1)  |  ( 1,-1)
          |
  3. or download this
    sub iterate_dim{
[map[map$_*2-1,split"",$_],map{substr unpack("B*",chr$_-1),-$_[0]}1..2
+**$_[0]]
...

#and call it:
my $AoA = iterate_dim( 2 );