aboutsummaryrefslogtreecommitdiff
path: root/challenge-103
diff options
context:
space:
mode:
authorAbigail <abigail@abigail.be>2021-03-14 20:00:34 +0100
committerAbigail <abigail@abigail.be>2021-03-14 20:00:34 +0100
commitc5063a48971bbbf3284d01ea1ab9759d58e05490 (patch)
tree73274286df13fc135e4f1988d9aad979a861819e /challenge-103
parentc8806dd8c6106b70a7d40a794116e879fdbc7d35 (diff)
downloadperlweeklychallenge-club-c5063a48971bbbf3284d01ea1ab9759d58e05490.tar.gz
perlweeklychallenge-club-c5063a48971bbbf3284d01ea1ab9759d58e05490.tar.bz2
perlweeklychallenge-club-c5063a48971bbbf3284d01ea1ab9759d58e05490.zip
Don't keep files from previous week
Diffstat (limited to 'challenge-103')
-rwxr-xr-xchallenge-103/abigail/data/preprocess138
1 files changed, 0 insertions, 138 deletions
diff --git a/challenge-103/abigail/data/preprocess b/challenge-103/abigail/data/preprocess
deleted file mode 100755
index 3e16a0fc07..0000000000
--- a/challenge-103/abigail/data/preprocess
+++ /dev/null
@@ -1,138 +0,0 @@
-#!/opt/perl/bin/perl
-
-use 5.032;
-
-use strict;
-use warnings;
-no warnings 'syntax';
-
-use experimental 'signatures';
-use experimental 'lexical_subs';
-
-open my $fh, "<", "rare_numbers.txt" or die "open rare_numbers.txt: $!";
-
-my @buckets;
-
-while (my $rn = <$fh>) {
- chomp $rn;
- $rn =~ s/^[0-9]+\s+//;
- push @{$buckets [length $rn]} => $rn;
-}
-
-my @bs = sort {$a <=> $b} grep {$buckets [$_]} keys @buckets;
-
-
-open my $awk_h, ">", "rn.awk" or die "open rn.awk: $!";
-open my $bash_h, ">", "rn.sh" or die "open rn.sh: $!";
-open my $basic_h, ">", "rn.bas" or die "open rn.bas: $!";
-open my $c_h, ">", "rn.c" or die "open rn.c: $!";
-open my $lua_h, ">", "rn.lua" or die "open rn.lua: $!";
-open my $node_h, ">", "rn.js" or die "open rn.js: $!";
-open my $perl_h, ">", "rn.pl" or die "open rn.pl: $!";
-open my $python_h, ">", "rn.py" or die "open rn.py: $!";
-open my $ruby_h, ">", "rn.rb" or die "open rn.rb: $!";
-
-my $basic_ln = 1000;
-
-say $awk_h "BEGIN {";
-say $bash_h "declare -a rare_numbers\n";
-say $basic_h "$basic_ln INPUT length\n\n";
-say $c_h "char * rare_numbers [23];\n";
-say $c_h "int main () {";
-say $lua_h "rare_numbers = {}\n";
-say $node_h "let rare_numbers = []\n";
-say $perl_h "my \@rare_numbers;\n";
-say $python_h "rare_numbers = {}\n";
-say $ruby_h "rare_numbers = Array . new";
-
-foreach my $bs (0 .. 22) {
- if (!$buckets [$bs]) {
- printf $c_h " rare_numbers [%2d] = NULL;\n"
- => $bs;
- next;
- }
-
- #
- # AWK
- #
- printf $awk_h ' rare_numbers [%2d] = ', $bs;
- print $awk_h join " \\\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- print $awk_h "\n";
-
- #
- # Bash
- #
- printf $bash_h 'rare_numbers[%2d]=', $bs;
- print $bash_h join "\\\n" =>
- map {qq {"$_\\n"}} @{$buckets [$bs]};
- print $bash_h "\n";
-
- #
- # BASIC
- #
- for my $rn (@{$buckets [$bs]}) {
- printf $basic_h qq {%03d IF length = %2d THEN PRINT %24s\n}
- => ($basic_ln += 10), $bs, qq {"$rn"}
- }
-
- #
- # C
- #
- printf $c_h ' rare_numbers [%2d] = ', $bs;
- print $c_h join " \\\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- print $c_h ";\n";
-
- #
- # Lua
- #
- printf $lua_h "rare_numbers [%2d] = ", $bs;
- print $lua_h join " ..\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- print $lua_h "\n";
-
- #
- # Node.js
- #
- printf $node_h "rare_numbers [%2d] = ", $bs;
- print $node_h join " +\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- print $node_h "\n";
-
- #
- # Perl
- #
- printf $perl_h '$rare_numbers [%2d] = ', $bs;
- print $perl_h join " .\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- say $perl_h ";";
-
- #
- # Python
- #
- printf $python_h "rare_numbers [%4s] =", "'$bs'";
- print $python_h join " +\\\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- print $python_h "\n";
-
- #
- # Ruby
- #
- printf $ruby_h "rare_numbers [%2s] =", $bs;
- print $ruby_h join " +\n " =>
- map {sprintf "%26s", qq {"$_\\n"}} @{$buckets [$bs]};
- print $ruby_h "\n";
-}
-say $awk_h "}";
-say $c_h "}";
-
-
-close $awk_h or die "close rn.awk: $!";
-close $bash_h or die "close rn.sh: $!";
-close $c_h or die "close rn.n: $!";
-close $lua_h or die "close rn.lua: $!";
-close $node_h or die "close rn.js: $!";
-close $perl_h or die "close rn.pl: $!";
-close $python_h or die "close rn.py: $!";
-close $ruby_h or die "close rn.rb: $!";