diff options
| author | Bob Lied <boblied+github@gmail.com> | 2025-06-08 15:56:04 -0500 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2025-06-08 15:56:04 -0500 |
| commit | 21878882994ff542d53195e6f0664a18406f58c5 (patch) | |
| tree | 31436eef018ae4fac0a454fb4f1f13ae988230bc | |
| parent | cae79bc6bb2ad3c7a59614a13d43e3bb25ebdcc8 (diff) | |
| download | perlweeklychallenge-club-21878882994ff542d53195e6f0664a18406f58c5.tar.gz perlweeklychallenge-club-21878882994ff542d53195e6f0664a18406f58c5.tar.bz2 perlweeklychallenge-club-21878882994ff542d53195e6f0664a18406f58c5.zip | |
Week 324 solutions
| -rw-r--r-- | challenge-324/bob-lied/perl/ch-1.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/challenge-324/bob-lied/perl/ch-1.pl b/challenge-324/bob-lied/perl/ch-1.pl index 4e4d89cae9..e19d38017b 100644 --- a/challenge-324/bob-lied/perl/ch-1.pl +++ b/challenge-324/bob-lied/perl/ch-1.pl @@ -45,6 +45,12 @@ unless ( $Row && $Col && @ARGV ) exit(1); } +sub show($array) +{ + my $s = join(',', map { '['.join(',', $_->@*).']' } $array->@*); + return "($s)"; +} + my $Array; try { $Array = makeArray($Row, $Col, @ARGV); @@ -54,8 +60,9 @@ catch ( $err ) say $logger->error($err); exit 1; } -use Data::Dumper; $Data::Dumper::Indent = 0; $Data::Dumper::Terse = 1; -say Dumper($Array); +#use Data::Dumper; $Data::Dumper::Indent = 0; $Data::Dumper::Terse = 1; +#say Dumper($Array); +say show($Array); #============================================================================= sub makeArray($r, $c, @ints) |