Help for this page

Select Code to Download


  1. or download this
    my @a = (
  [qw/. . . # # # . . ./],
...
  [qw/# # . . . . . # #/],
  [qw/# # . . . . . # #/],
);
  2. or download this
    my @a = (
  [map{tr/./ /;$_} qw/. . . # # # . . ./],
...
  [map{tr/./ /;$_} qw/# # . . . . . # #/],
  [map{tr/./ /;$_} qw/# # . . . . . # #/],
);
  3. or download this
    my @a = (
  [split //, q/   ###   /],
...
  [split //, q/##     ##/],
  [split //, q/##     ##/],
);