diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-12-02 18:12:00 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-12-02 18:12:00 +0000 |
| commit | bf990af024f1ea0279927e4c89b2146b86e15e3b (patch) | |
| tree | 67d7c6fe11970c4596f33b757cc3bb53c9ac42f3 | |
| parent | f0c28790b49f781a131faa9837c37d5b6103c09f (diff) | |
| download | perlweeklychallenge-club-bf990af024f1ea0279927e4c89b2146b86e15e3b.tar.gz perlweeklychallenge-club-bf990af024f1ea0279927e4c89b2146b86e15e3b.tar.bz2 perlweeklychallenge-club-bf990af024f1ea0279927e4c89b2146b86e15e3b.zip | |
Fix title comment
101 files changed, 236 insertions, 8 deletions
diff --git a/challenge-001/paulo-custodio/check_challenge_title.pl b/challenge-001/paulo-custodio/check_challenge_title.pl new file mode 100644 index 0000000000..cd36c62e87 --- /dev/null +++ b/challenge-001/paulo-custodio/check_challenge_title.pl @@ -0,0 +1,42 @@ +#!/usr/bin/env perl + +# show stats of challenge submissions + +use Modern::Perl; +use Path::Tiny; + +my $USER = "paulo-custodio"; + +our %LANG = ( + ada => 'adb', + awk => 'awk', + basic => 'bas', + bc => 'bc', + brainfuck=>'pl', #'bf', + c => 'c', + cpp => 'cpp', + d => 'd', + forth => 'fs', + fortran => 'f90', + lua => 'lua', + pascal => 'pas', + perl => 'pl', + python => 'py', +); + +for my $chall_dir (path(".")->children(qr/challenge-\d+/)) { + my($chall) = $chall_dir =~ /(\d+)/ or die; + $chall += 0; + + for my $lang (sort keys %LANG) { + my $dir = path($chall_dir, $USER, $lang); + next unless $dir->is_dir; + + for my $sol ($dir->children(qr/^ch[-_]\d\.$LANG{$lang}$/)) { + my $text = $sol->slurp; + if ($text !~ /Challenge 0*$chall\b/) { + say $sol; + } + } + } +} diff --git a/challenge-024/paulo-custodio/perl/ch-1.pl b/challenge-024/paulo-custodio/perl/ch-1.pl deleted file mode 100644 index e69de29bb2..0000000000 --- a/challenge-024/paulo-custodio/perl/ch-1.pl +++ /dev/null diff --git a/challenge-024/paulo-custodio/perl/ch-2.pl b/challenge-024/paulo-custodio/perl/ch-2.pl index 6e90773eed..8d8e7f86fd 100644 --- a/challenge-024/paulo-custodio/perl/ch-2.pl +++ b/challenge-024/paulo-custodio/perl/ch-2.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Challenge 019 +# Challenge 024 # # Task #2 # Create a script to implement full text search functionality using Inverted diff --git a/challenge-091/paulo-custodio/lua/ch-1.lua b/challenge-091/paulo-custodio/lua/ch-1.lua index 0a3bf830c3..3091ff1ae3 100644 --- a/challenge-091/paulo-custodio/lua/ch-1.lua +++ b/challenge-091/paulo-custodio/lua/ch-1.lua @@ -1,7 +1,7 @@ #!/usr/bin/env lua --[[ -THE WEEKLY CHALLENGE - 091 +Challenge 091 TASK #1: Count Number diff --git a/challenge-091/paulo-custodio/lua/ch-2.lua b/challenge-091/paulo-custodio/lua/ch-2.lua index c36f960435..93fdabe41b 100644 --- a/challenge-091/paulo-custodio/lua/ch-2.lua +++ b/challenge-091/paulo-custodio/lua/ch-2.lua @@ -1,7 +1,7 @@ #!/usr/bin/env lua --[[ -THE WEEKLY CHALLENGE - 091 +Challenge 091 TASK #2: Jump Game diff --git a/challenge-091/paulo-custodio/perl/ch-1.pl b/challenge-091/paulo-custodio/perl/ch-1.pl index e0d2116ceb..24d4b8301d 100755 --- a/challenge-091/paulo-custodio/perl/ch-1.pl +++ b/challenge-091/paulo-custodio/perl/ch-1.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl -# THE WEEKLY CHALLENGE - 091 +# Challenge 091 +# # TASK #1: Count Number # # You are given a positive number $N. Write a script to count number and diff --git a/challenge-091/paulo-custodio/perl/ch-2.pl b/challenge-091/paulo-custodio/perl/ch-2.pl index 39ef8e35d5..715eb81036 100755 --- a/challenge-091/paulo-custodio/perl/ch-2.pl +++ b/challenge-091/paulo-custodio/perl/ch-2.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl -# THE WEEKLY CHALLENGE - 091 +# Challenge 091 +# # TASK #2: Jump Game # # You are given an array of positive numbers @N, where value at each index diff --git a/challenge-091/paulo-custodio/python/ch-1.py b/challenge-091/paulo-custodio/python/ch-1.py index 3eeb00c151..7fda504093 100644 --- a/challenge-091/paulo-custodio/python/ch-1.py +++ b/challenge-091/paulo-custodio/python/ch-1.py @@ -1,6 +1,7 @@ #!/usr/bin/env python -# THE WEEKLY CHALLENGE - 091 +# Challenge 091 +# # TASK #1: Count Number # # You are given a positive number $N. Write a script to count number and diff --git a/challenge-091/paulo-custodio/python/ch-2.py b/challenge-091/paulo-custodio/python/ch-2.py index 84db6f66d8..538dce95f0 100644 --- a/challenge-091/paulo-custodio/python/ch-2.py +++ b/challenge-091/paulo-custodio/python/ch-2.py @@ -1,6 +1,7 @@ #!/usr/bin/env python -# THE WEEKLY CHALLENGE - 091 +# Challenge 091 +# # TASK #2: Jump Game # # You are given an array of positive numbers @N, where value at each index diff --git a/challenge-106/paulo-custodio/perl/ch-2.pl b/challenge-106/paulo-custodio/perl/ch-2.pl index aa2f756590..5710a17678 100644 --- a/challenge-106/paulo-custodio/perl/ch-2.pl +++ b/challenge-106/paulo-custodio/perl/ch-2.pl @@ -1,5 +1,7 @@ #!/usr/bin/env perl +# Challenge 106 +# # TASK #2 › Decimal String # Submitted by: Mohammad S Anwar # You are given numerator and denominator i.e. $N and $D. diff --git a/challenge-106/paulo-custodio/python/ch-2.py b/challenge-106/paulo-custodio/python/ch-2.py index 6a019e26d6..7a160eb138 100644 --- a/challenge-106/paulo-custodio/python/ch-2.py +++ b/challenge-106/paulo-custodio/python/ch-2.py @@ -1,5 +1,7 @@ #!/usr/bin/env python3 +# Challenge 106 +# # TASK #2 > Decimal String # Submitted by: Mohammad S Anwar # You are given numerator and denominator i.e. $N and $D. diff --git a/challenge-119/paulo-custodio/python/ch-2.py b/challenge-119/paulo-custodio/python/ch-2.py index 1122dfada7..0ec51b74bd 100644 --- a/challenge-119/paulo-custodio/python/ch-2.py +++ b/challenge-119/paulo-custodio/python/ch-2.py @@ -1,5 +1,7 @@ #!/usr/bin/env python +# Challenge 119 |