diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-12-17 11:48:55 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-12-17 11:48:55 +0000 |
| commit | 40ecb91eca8db21fb151ad8c148dd3e3b3f877c2 (patch) | |
| tree | 5438e53f9b97a95bf82b99df8e8aacb3b41b36fc /challenge-001 | |
| parent | 8c1fdda84743187534ae4615a0dfcb41283293e4 (diff) | |
| download | perlweeklychallenge-club-40ecb91eca8db21fb151ad8c148dd3e3b3f877c2.tar.gz perlweeklychallenge-club-40ecb91eca8db21fb151ad8c148dd3e3b3f877c2.tar.bz2 perlweeklychallenge-club-40ecb91eca8db21fb151ad8c148dd3e3b3f877c2.zip | |
Add Perl and Python solutions to challenge 028
Diffstat (limited to 'challenge-001')
| -rw-r--r-- | challenge-001/paulo-custodio/go.pl | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/challenge-001/paulo-custodio/go.pl b/challenge-001/paulo-custodio/go.pl index fe74e50528..5278fa551b 100644 --- a/challenge-001/paulo-custodio/go.pl +++ b/challenge-001/paulo-custodio/go.pl @@ -7,25 +7,25 @@ use Path::Tiny; or die "Usage: ",path($0)->basename," nr\n"; my $nr = sprintf("%03d", $ARGV[0]); -for my $dir (qw( - ada - awk - basic - bc - brainfuck - c - cpp - d - forth - fortran - lua - pascal - perl - python - t - )) { - path("challenge-$nr/paulo-custodio/$dir")->mkpath; -} +#for my $dir (qw( +# ada +# awk +# basic +# bc +# brainfuck +# c +# cpp +# d +# forth +# fortran +# lua +# pascal +# perl +# python +# t +# )) { +# path("challenge-$nr/paulo-custodio/$dir")->mkpath; +#} path("challenge-$nr/paulo-custodio/README")->spew("Solution by Paulo Custodio\n"); if (! -f "challenge-$nr/paulo-custodio/Makefile") { path("challenge-$nr/paulo-custodio/Makefile")->spew( |