From a678bf9e5c29c258c31e906b2b9dd911b919b1ac Mon Sep 17 00:00:00 2001 From: Abigail Date: Tue, 25 Jan 2022 20:17:25 +0100 Subject: Week 149, part 1: Use same algorithm for Perl solution. When calculating the sum of the digits, use the modulo and divide method, instead of stringifying and summing the digits extracted with a regexp. --- challenge-149/abigail/perl/ch-1.pl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/challenge-149/abigail/perl/ch-1.pl b/challenge-149/abigail/perl/ch-1.pl index ca72dbefbf..0f4127cb8a 100644 --- a/challenge-149/abigail/perl/ch-1.pl +++ b/challenge-149/abigail/perl/ch-1.pl @@ -29,7 +29,17 @@ use List::Util qw [sum]; # # Return the sum of the digits of its argument # -sub digitsum ($n) {sum $n =~ /\d/ag} +sub digitsum ($number) { + my $sum = 0; + my $base = 10; + while ($number > 0) { + use integer; + $sum += $number % $base; + $number /= $base; + } + return $sum; +} + # # Return whether the argument is a Fibonacci number. We do this by -- cgit From a792983ae44331d447e963414fd84768416fb2ce Mon Sep 17 00:00:00 2001 From: Abigail Date: Wed, 26 Jan 2022 17:06:27 +0100 Subject: Week 149, part 1: Fix variable names. --- challenge-149/abigail/awk/ch-1.awk | 18 +++++++++--------- challenge-149/abigail/bash/ch-1.sh | 18 +++++++++--------- challenge-149/abigail/bc/ch-1.bc | 14 +++++++------- challenge-149/abigail/perl/ch-1.pl | 17 +++++++---------- 4 files changed, 32 insertions(+), 35 deletions(-) diff --git a/challenge-149/abigail/awk/ch-1.awk b/challenge-149/abigail/awk/ch-1.awk index db6182ff4f..1faa7da576 100644 --- a/challenge-149/abigail/awk/ch-1.awk +++ b/challenge-149/abigail/awk/ch-1.awk @@ -18,20 +18,20 @@ function digit_sum (number, sum) { } function is_fib (n, t) { - while (g < n) { - t = g - g = f + g - f = t - fib [g] = 1 + while (fib_last < n) { + t = fib_last + fib_last = fib_prev + fib_last + fib_prev = t + fib [fib_last] = 1 } return n in fib } BEGIN { - f = 0 - g = 1 - fib [f] = 1 - fib [g] = 1 + fib_prev = 0 + fib_last = 1 + fib [fib_prev] = 1 + fib [fib_last] = 1 } { diff --git a/challenge-149/abigail/bash/ch-1.sh b/challenge-149/abigail/bash/ch-1.sh index bd882f735b..9e87e4f844 100644 --- a/challenge-149/abigail/bash/ch-1.sh +++ b/challenge-149/abigail/bash/ch-1.sh @@ -17,19 +17,19 @@ function digit_sum () { done } -f=0 -g=1 +fib_prev=0 +fib_last=1 declare -A fib -fib[$f]=1 -fib[$g]=1 +fib[$fib_prev]=1 +fib[$fib_last]=1 function is_fib () { local n=$1 - while (($g < $n)) - do ((t = g)) - ((g = f + g)) - ((f = t)) - fib[$g]=1 + while (($fib_last < $n)) + do ((t = fib_last)) + ((fib_last = fib_prev + fib_last)) + ((fib_prev = t)) + fib[$fib_last]=1 done is_fib=${fib[$n]:-0} } diff --git a/challenge-149/abigail/bc/ch-1.bc b/challenge-149/abigail/bc/ch-1.bc index 85f46b7a03..84e3b12665 100644 --- a/challenge-149/abigail/bc/ch-1.bc +++ b/challenge-149/abigail/bc/ch-1.bc @@ -18,19 +18,19 @@ define digit_sum (n) { return (sum) } -f = 1 -g = 1 +fib_prev = 1 +fib_last = 1 fib [0] = 0 fib [1] = 1 fib_count = 2 define is_fib (n) { auto t, min, max - while (g < n) { - t = g - g = f + g - f = t - fib [fib_count] = g + while (fib_last < n) { + t = fib_last + fib_last = fib_prev + fib_last + fib_prev = t + fib [fib_count] = fib_last fib_count = fib_count + 1 } min = 0 diff --git a/challenge-149/abigail/perl/ch-1.pl b/challenge-149/abigail/perl/ch-1.pl index 0f4127cb8a..7188924edf 100644 --- a/challenge-149/abigail/perl/ch-1.pl +++ b/challenge-149/abigail/perl/ch-1.pl @@ -51,22 +51,19 @@ sub digitsum ($number) { # Then it's a simple lookup. # sub is_fib ($n) { - state $fib = {0 => 1, 1 => 1}; - state $f = 0; - state $g = 1; - while ($g < $n) { - ($f, $g) = ($g, $f + $g); - $$fib {$g} = 1; + state $fib = {0 => 1, 1 => 1}; + state $fib_prev = 0; + state $fib_last = 1; + while ($fib_last < $n) { + ($fib_prev, $fib_last) = ($fib_last, $fib_prev + $fib_last); + $$fib {$fib_last} = 1; } $$fib {$n} } while (<>) { for (my ($k, $N) = (0, 0 + $_); $N > 0; $k ++) { - if (is_fib (digitsum $k)) { - print "$k "; - $N --; - } + $N --, print "$k " if is_fib digitsum $k } print "\n"; } -- cgit From 1182279c150eb5c4c55a25092afc5cb9f54d16cb Mon Sep 17 00:00:00 2001 From: Abigail Date: Wed, 26 Jan 2022 17:07:23 +0100 Subject: Week 149, part 1, lua: Fix reference. --- challenge-149/abigail/lua/ch-1.lua | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-149/abigail/lua/ch-1.lua b/challenge-149/abigail/lua/ch-1.lua index ce9ef0ddb6..156a02cdf3 100644 --- a/challenge-149/abigail/lua/ch-1.lua +++ b/challenge-149/abigail/lua/ch-1.lua @@ -5,7 +5,7 @@ -- -- --- Run as: lua ch-2.lua < input-file +-- Run as: lua ch-1.lua < input-file -- function digit_sum (number) -- cgit From 6fbb0c972e74ce8ccc75165e21f6cf2df77e1963 Mon Sep 17 00:00:00 2001 From: Abigail Date: Thu, 27 Jan 2022 20:01:25 +0100 Subject: Week 149, part 2: Spend a ton of CPU cycles to find more values. Running the Python program from the OEIS to find values for 23, 24, and 25. --- challenge-149/abigail/awk/ch-2.awk | 44 +++---- challenge-149/abigail/bash/ch-2.sh | 6 + challenge-149/abigail/basic/ch-2.bas | 54 +++++---- challenge-149/abigail/bc/ch-2.bc | 12 ++ challenge-149/abigail/c/ch-2.c | 54 +++++---- challenge-149/abigail/data/a287298.awk | 43 +++---- challenge-149/abigail/data/a287298.bas | 47 ++++---- challenge-149/abigail/data/a287298.bc | 2 + challenge-149/abigail/data/a287298.c | 52 ++++---- challenge-149/abigail/data/a287298.go | 52 ++++---- challenge-149/abigail/data/a287298.java | 52 ++++---- challenge-149/abigail/data/a287298.js | 43 +++---- challenge-149/abigail/data/a287298.lua | 43 +++---- challenge-149/abigail/data/a287298.p | 52 ++++---- challenge-149/abigail/data/a287298.pl | 43 +++---- challenge-149/abigail/data/a287298.py | 43 +++---- challenge-149/abigail/data/a287298.r | 44 +++---- challenge-149/abigail/data/a287298.rb | 43 +++---- challenge-149/abigail/data/a287298.scm | 50 ++++---- challenge-149/abigail/data/a287298.sh | 3 + challenge-149/abigail/data/a287298.tcl | 49 ++++---- challenge-149/abigail/data/preprocess | 206 ++++++++++++++++++++------------ challenge-149/abigail/go/ch-2.go | 54 +++++---- challenge-149/abigail/java/ch-2.java | 54 +++++---- challenge-149/abigail/lua/ch-2.lua | 43 +++---- challenge-149/abigail/node/ch-2.js | 44 +++---- challenge-149/abigail/pascal/ch-2.p | 54 +++++---- challenge-149/abigail/perl/ch-2.pl | 43 +++---- challenge-149/abigail/python/ch-2.py | 45 +++---- challenge-149/abigail/r/ch-2.r | 46 +++---- challenge-149/abigail/ruby/ch-2.rb | 43 +++---- challenge-149/abigail/scheme/ch-2.scm | 52 ++++---- challenge-149/abigail/t/input-2-2 | 3 + challenge-149/abigail/t/input-2-3 | 2 +- challenge-149/abigail/t/output-2-2.exp | 3 + challenge-149/abigail/tcl/ch-2.tcl | 49 ++++---- 36 files changed, 879 insertions(+), 693 deletions(-) diff --git a/challenge-149/abigail/awk/ch-2.awk b/challenge-149/abigail/awk/ch-2.awk index 1b8416f19b..fe7f487aa1 100644 --- a/challenge-149/abigail/awk/ch-2.awk +++ b/challenge-149/abigail/awk/ch-2.awk @@ -8,27 +8,31 @@ # Run as: awk -f ch-2.awk < input-file # + BEGIN { - A287298 [ 2] = "1" - A287298 [ 3] = "1" - A287298 [ 4] = "3201" - A287298 [ 5] = "4301" - A287298 [ 6] = "452013" - A287298 [ 7] = "6250341" - A287298 [ 8] = "47302651" - A287298 [ 9] = "823146570" - A287298 [10] = "9814072356" - A287298 [11] = "A8701245369" - A287298 [12] = "B8750A649321" - A287298 [13] = "CBA504216873" - A287298 [14] = "DC71B30685A924" - A287298 [15] = "EDAC93B24658701" - A287298 [16] = "FED5B39A42706C81" - A287298 [17] = "GFED5A31C6B79802" - A287298 [18] = "HGF80ADC53712EB649" - A287298 [19] = "IHGFD3408C6E715A2B9" - A287298 [20] = "JIHG03DAC457BFE96281" - A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [ 2] = "1" + A287298 [ 3] = "1" + A287298 [ 4] = "3201" + A287298 [ 5] = "4301" + A287298 [ 6] = "452013" + A287298 [ 7] = "6250341" + A287298 [ 8] = "47302651" + A287298 [ 9] = "823146570" + A287298 [10] = "9814072356" + A287298 [11] = "A8701245369" + A287298 [12] = "B8750A649321" + A287298 [13] = "CBA504216873" + A287298 [14] = "DC71B30685A924" + A287298 [15] = "EDAC93B24658701" + A287298 [16] = "FED5B39A42706C81" + A287298 [17] = "GFED5A31C6B79802" + A287298 [18] = "HGF80ADC53712EB649" + A287298 [19] = "IHGFD3408C6E715A2B9" + A287298 [20] = "JIHG03DAC457BFE96281" + A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [23] = "MLKJEFG5IC1D9H8042AB376" + A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41" + A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG" } { diff --git a/challenge-149/abigail/bash/ch-2.sh b/challenge-149/abigail/bash/ch-2.sh index ba798b6707..31b5ef156a 100644 --- a/challenge-149/abigail/bash/ch-2.sh +++ b/challenge-149/abigail/bash/ch-2.sh @@ -10,6 +10,9 @@ set -f +declare -a A287298 + + declare -a A287298 A287298[2]=1 @@ -32,6 +35,9 @@ A287298[18]=HGF80ADC53712EB649 A287298[19]=IHGFD3408C6E715A2B9 A287298[20]=JIHG03DAC457BFE96281 A287298[22]=LKJIG5D14B9032FHAC867E +A287298[23]=MLKJEFG5IC1D9H8042AB376 +A287298[24]=NMLKJ2BD0639GFE7C8IH5A41 +A287298[25]=ONMLKD8CJE2H47F6395I0B1AG while read n do echo ${A287298[$n]:-"Too hard to calculate"} diff --git a/challenge-149/abigail/basic/ch-2.bas b/challenge-149/abigail/basic/ch-2.bas index 837319f2fc..87d5812589 100644 --- a/challenge-149/abigail/basic/ch-2.bas +++ b/challenge-149/abigail/basic/ch-2.bas @@ -6,31 +6,37 @@ 0050 REM Run as: basic ch-2.bas < input-file 0060 REM -1000 INPUT N -1005 IF N < 0 THEN END +1000 maxbase = 25 -1010 IF N = 2 THEN PRINT "1" -1020 IF N = 3 THEN PRINT "1" -1030 IF N = 4 THEN PRINT "3201" -1040 IF N = 5 THEN PRINT "4301" -1050 IF N = 6 THEN PRINT "452013" -1060 IF N = 7 THEN PRINT "6250341" -1070 IF N = 8 THEN PRINT "47302651" -1080 IF N = 9 THEN PRINT "823146570" -1090 IF N = 10 THEN PRINT "9814072356" -1100 IF N = 11 THEN PRINT "A8701245369" -1110 IF N = 12 THEN PRINT "B8750A649321" -1120 IF N = 13 THEN PRINT "CBA504216873" -1130 IF N = 14 THEN PRINT "DC71B30685A924" -1140 IF N = 15 THEN PRINT "EDAC93B24658701" -1150 IF N = 16 THEN PRINT "FED5B39A42706C81" -1160 IF N = 17 THEN PRINT "GFED5A31C6B79802" -1170 IF N = 18 THEN PRINT "HGF80ADC53712EB649" -1180 IF N = 19 THEN PRINT "IHGFD3408C6E715A2B9" -1190 IF N = 20 THEN PRINT "JIHG03DAC457BFE96281" -1195 IF N = 21 THEN PRINT "Too hard to calculate" -1200 IF N = 22 THEN PRINT "LKJIG5D14B9032FHAC867E" -1210 IF N > 22 THEN PRINT "Too hard to calculate" +1010 INPUT N +1015 IF N < 0 THEN END + +1020 IF N = 2 THEN PRINT "1" +1030 IF N = 3 THEN PRINT "1" +1040 IF N = 4 THEN PRINT "3201" +1050 IF N = 5 THEN PRINT "4301" +1060 IF N = 6 THEN PRINT "452013" +1070 IF N = 7 THEN PRINT "6250341" +1080 IF N = 8 THEN PRINT "47302651" +1090 IF N = 9 THEN PRINT "823146570" +1100 IF N = 10 THEN PRINT "9814072356" +1110 IF N = 11 THEN PRINT "A8701245369" +1120 IF N = 12 THEN PRINT "B8750A649321" +1130 IF N = 13 THEN PRINT "CBA504216873" +1140 IF N = 14 THEN PRINT "DC71B30685A924" +1150 IF N = 15 THEN PRINT "EDAC93B24658701" +1160 IF N = 16 THEN PRINT "FED5B39A42706C81" +1170 IF N = 17 THEN PRINT "GFED5A31C6B79802" +1180 IF N = 18 THEN PRINT "HGF80ADC53712EB649" +1190 IF N = 19 THEN PRINT "IHGFD3408C6E715A2B9" +1200 IF N = 20 THEN PRINT "JIHG03DAC457BFE96281" +1210 IF N = 22 THEN PRINT "LKJIG5D14B9032FHAC867E" +1220 IF N = 23 THEN PRINT "MLKJEFG5IC1D9H8042AB376" +1230 IF N = 24 THEN PRINT "NMLKJ2BD0639GFE7C8IH5A41" +1240 IF N = 25 THEN PRINT "ONMLKD8CJE2H47F6395I0B1AG" + +1500 IF N = 21 THEN PRINT "Too hard to calculate" +1510 IF N > maxbase THEN PRINT "Too hard to calculate" 5000 GOTO 1000 diff --git a/challenge-149/abigail/bc/ch-2.bc b/challenge-149/abigail/bc/ch-2.bc index e4a9d9a2aa..8172dc428d 100644 --- a/challenge-149/abigail/bc/ch-2.bc +++ b/challenge-149/abigail/bc/ch-2.bc @@ -55,6 +55,18 @@ while (1) { "LKJIG5D14B9032FHAC867E" done = 1 } + if (n == 23) { + "MLKJEFG5IC1D9H8042AB376" + done = 1 + } + if (n == 24) { + "NMLKJ2BD0639GFE7C8IH5A41" + done = 1 + } + if (n == 25) { + "ONMLKD8CJE2H47F6395I0B1AG" + done = 1 + } if (done == 0) { "Too hard to calculate" } diff --git a/challenge-149/abigail/c/ch-2.c b/challenge-149/abigail/c/ch-2.c index 6f9c25796d..d8a6039858 100644 --- a/challenge-149/abigail/c/ch-2.c +++ b/challenge-149/abigail/c/ch-2.c @@ -11,35 +11,39 @@ */ int main (void) { - char * A287298 [23]; int n; + size_t max_base = 25; + char * A287298 [26]; - A287298 [ 0] = NULL; - A287298 [ 1] = NULL; - A287298 [ 2] = "1"; - A287298 [ 3] = "1"; - A287298 [ 4] = "3201"; - A287298 [ 5] = "4301"; - A287298 [ 6] = "452013"; - A287298 [ 7] = "6250341"; - A287298 [ 8] = "47302651"; - A287298 [ 9] = "823146570"; - A287298 [10] = "9814072356"; - A287298 [11] = "A8701245369"; - A287298 [12] = "B8750A649321"; - A287298 [13] = "CBA504216873"; - A287298 [14] = "DC71B30685A924"; - A287298 [15] = "EDAC93B24658701"; - A287298 [16] = "FED5B39A42706C81"; - A287298 [17] = "GFED5A31C6B79802"; - A287298 [18] = "HGF80ADC53712EB649"; - A287298 [19] = "IHGFD3408C6E715A2B9"; - A287298 [20] = "JIHG03DAC457BFE96281"; - A287298 [21] = NULL; - A287298 [22] = "LKJIG5D14B9032FHAC867E"; + A287298 [ 0] = NULL; + A287298 [ 1] = NULL; + A287298 [ 2] = "1"; + A287298 [ 3] = "1"; + A287298 [ 4] = "3201"; + A287298 [ 5] = "4301"; + A287298 [ 6] = "452013"; + A287298 [ 7] = "6250341"; + A287298 [ 8] = "47302651"; + A287298 [ 9] = "823146570"; + A287298 [10] = "9814072356"; + A287298 [11] = "A8701245369"; + A287298 [12] = "B8750A649321"; + A287298 [13] = "CBA504216873"; + A287298 [14] = "DC71B30685A924"; + A287298 [15] = "EDAC93B24658701"; + A287298 [16] = "FED5B39A42706C81"; + A287298 [17] = "GFED5A31C6B79802"; + A287298 [18] = "HGF80ADC53712EB649"; + A287298 [19] = "IHGFD3408C6E715A2B9"; + A287298 [20] = "JIHG03DAC457BFE96281"; + A287298 [21] = NULL; + A287298 [22] = "LKJIG5D14B9032FHAC867E"; + A287298 [23] = "MLKJEFG5IC1D9H8042AB376"; + A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41"; + A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG"; while (scanf ("%d", &n) == 1) { - if (n > 22 || A287298 [n] == NULL) { + if (n > max_base || A287298 [n] == NULL) { printf ("Too hard to calculate\n"); } else { diff --git a/challenge-149/abigail/data/a287298.awk b/challenge-149/abigail/data/a287298.awk index 8ae03ba3aa..16760d44b5 100644 --- a/challenge-149/abigail/data/a287298.awk +++ b/challenge-149/abigail/data/a287298.awk @@ -1,22 +1,25 @@ BEGIN { - A287298 [ 2] = "1" - A287298 [ 3] = "1" - A287298 [ 4] = "3201" - A287298 [ 5] = "4301" - A287298 [ 6] = "452013" - A287298 [ 7] = "6250341" - A287298 [ 8] = "47302651" - A287298 [ 9] = "823146570" - A287298 [10] = "9814072356" - A287298 [11] = "A8701245369" - A287298 [12] = "B8750A649321" - A287298 [13] = "CBA504216873" - A287298 [14] = "DC71B30685A924" - A287298 [15] = "EDAC93B24658701" - A287298 [16] = "FED5B39A42706C81" - A287298 [17] = "GFED5A31C6B79802" - A287298 [18] = "HGF80ADC53712EB649" - A287298 [19] = "IHGFD3408C6E715A2B9" - A287298 [20] = "JIHG03DAC457BFE96281" - A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [ 2] = "1" + A287298 [ 3] = "1" + A287298 [ 4] = "3201" + A287298 [ 5] = "4301" + A287298 [ 6] = "452013" + A287298 [ 7] = "6250341" + A287298 [ 8] = "47302651" + A287298 [ 9] = "823146570" + A287298 [10] = "9814072356" + A287298 [11] = "A8701245369" + A287298 [12] = "B8750A649321" + A287298 [13] = "CBA504216873" + A287298 [14] = "DC71B30685A924" + A287298 [15] = "EDAC93B24658701" + A287298 [16] = "FED5B39A42706C81" + A287298 [17] = "GFED5A31C6B79802" + A287298 [18] = "HGF80ADC53712EB649" + A287298 [19] = "IHGFD3408C6E715A2B9" + A287298 [20] = "JIHG03DAC457BFE96281" + A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [23] = "MLKJEFG5IC1D9H8042AB376" + A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41" + A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG" } diff --git a/challenge-149/abigail/data/a287298.bas b/challenge-149/abigail/data/a287298.bas index 110decb347..05698b1333 100644 --- a/challenge-149/abigail/data/a287298.bas +++ b/challenge-149/abigail/data/a287298.bas @@ -1,23 +1,28 @@ -1000 INPUT N +1000 maxbase = 25 +1010 INPUT N -1010 IF N = 2 THEN PRINT "1" -1020 IF N = 3 THEN PRINT "1" -1030 IF N = 4 THEN PRINT "3201" -1040 IF N = 5 THEN PRINT "4301" -1050 IF N = 6 THEN PRINT "452013" -1060 IF N = 7 THEN PRINT "6250341" -1070 IF N = 8 THEN PRINT "47302651" -1080 IF N = 9 THEN PRINT "823146570" -1090 IF N = 10 THEN PRINT "9814072356" -1100 IF N = 11 THEN PRINT "A8701245369" -1110 IF N = 12 THEN PRINT "B8750A649321" -1120 IF N = 13 THEN PRINT "CBA504216873" -1130 IF N = 14 THEN PRINT "DC71B30685A924" -1140 IF N = 15 THEN PRINT "EDAC93B24658701" -1150 IF N = 16 THEN PRINT "FED5B39A42706C81" -1160 IF N = 17 THEN PRINT "GFED5A31C6B79802" -1170 IF N = 18 THEN PRINT "HGF80ADC53712EB649" -1180 IF N = 19 THEN PRINT "IHGFD3408C6E715A2B9" -1190 IF N = 20 THEN PRINT "JIHG03DAC457BFE96281" -1200 IF N = 22 THEN PRINT "LKJIG5D14B9032FHAC867E" + +1020 IF N = 2 THEN PRINT "1" +1030 IF N = 3 THEN PRINT "1" +1040 IF N = 4 THEN PRINT "3201" +1050 IF N = 5 THEN PRINT "4301" +1060 IF N = 6 THEN PRINT "452013" +1070 IF N = 7 THEN PRINT "6250341" +1080 IF N = 8 THEN PRINT "47302651" +1090 IF N = 9 THEN PRINT "823146570" +1100 IF N = 10 THEN PRINT "9814072356" +1110 IF N = 11 THEN PRINT "A8701245369" +1120 IF N = 12 THEN PRINT "B8750A649321" +1130 IF N = 13 THEN PRINT "CBA504216873" +1140 IF N = 14 THEN PRINT "DC71B30685A924" +1150 IF N = 15 THEN PRINT "EDAC93B24658701" +1160 IF N = 16 THEN PRINT "FED5B39A42706C81" +1170 IF N = 17 THEN PRINT "GFED5A31C6B79802" +1180 IF N = 18 THEN PRINT "HGF80ADC53712EB649" +1190 IF N = 19 THEN PRINT "IHGFD3408C6E715A2B9" +1200 IF N = 20 THEN PRINT "JIHG03DAC457BFE96281" +1210 IF N = 22 THEN PRINT "LKJIG5D14B9032FHAC867E" +1220 IF N = 23 THEN PRINT "MLKJEFG5IC1D9H8042AB376" +1230 IF N = 24 THEN PRINT "NMLKJ2BD0639GFE7C8IH5A41" +1240 IF N = 25 THEN PRINT "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/a287298.bc b/challenge-149/abigail/data/a287298.bc index 2578cbfcd8..bd9aecf401 100644 --- a/challenge-149/abigail/data/a287298.bc +++ b/challenge-149/abigail/data/a287298.bc @@ -1,3 +1,5 @@ +max_base = 25 + a287298 [ 2] = 1 a287298 [ 3] = 1 a287298 [ 4] = 225 diff --git a/challenge-149/abigail/data/a287298.c b/challenge-149/abigail/data/a287298.c index be71166f71..568ebae2fb 100644 --- a/challenge-149/abigail/data/a287298.c +++ b/challenge-149/abigail/data/a287298.c @@ -1,27 +1,31 @@ int main (void) { - char * A287298 [23]; + char * A287298 [26]; + size_t max_base = 25; - A287298 [ 0] = NULL; - A287298 [ 1] = NULL; - A287298 [ 2] = "1"; - A287298 [ 3] = "1"; - A287298 [ 4] = "3201"; - A287298 [ 5] = "4301"; - A287298 [ 6] = "452013"; - A287298 [ 7] = "6250341"; - A287298 [ 8] = "47302651"; - A287298 [ 9] = "823146570"; - A287298 [10] = "9814072356"; - A287298 [11] = "A8701245369"; - A287298 [12] = "B8750A649321"; - A287298 [13] = "CBA504216873"; - A287298 [14] = "DC71B30685A924"; - A287298 [15] = "EDAC93B24658701"; - A287298 [16] = "FED5B39A42706C81"; - A287298 [17] = "GFED5A31C6B79802"; - A287298 [18] = "HGF80ADC53712EB649"; - A287298 [19] = "IHGFD3408C6E715A2B9"; - A287298 [20] = "JIHG03DAC457BFE96281"; - A287298 [21] = NULL; - A287298 [22] = "LKJIG5D14B9032FHAC867E"; + A287298 [ 0] = NULL; + A287298 [ 1] = NULL; + A287298 [ 2] = "1"; + A287298 [ 3] = "1"; + A287298 [ 4] = "3201"; + A287298 [ 5] = "4301"; + A287298 [ 6] = "452013"; + A287298 [ 7] = "6250341"; + A287298 [ 8] = "47302651"; + A287298 [ 9] = "823146570"; + A287298 [10] = "9814072356"; + A287298 [11] = "A8701245369"; + A287298 [12] = "B8750A649321"; + A287298 [13] = "CBA504216873"; + A287298 [14] = "DC71B30685A924"; + A287298 [15] = "EDAC93B24658701"; + A287298 [16] = "FED5B39A42706C81"; + A287298 [17] = "GFED5A31C6B79802"; + A287298 [18] = "HGF80ADC53712EB649"; + A287298 [19] = "IHGFD3408C6E715A2B9"; + A287298 [20] = "JIHG03DAC457BFE96281"; + A287298 [21] = NULL; + A287298 [22] = "LKJIG5D14B9032FHAC867E"; + A287298 [23] = "MLKJEFG5IC1D9H8042AB376"; + A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41"; + A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG"; } diff --git a/challenge-149/abigail/data/a287298.go b/challenge-149/abigail/data/a287298.go index 95cdbfc96c..19b4269cca 100644 --- a/challenge-149/abigail/data/a287298.go +++ b/challenge-149/abigail/data/a287298.go @@ -1,27 +1,31 @@ func main () { - var A287298 [23] string + max_base := 25 + var A287298 [26] string - A287298 [ 0] = "" - A287298 [ 1] = "" - A287298 [ 2] = "1" - A287298 [ 3] = "1" - A287298 [ 4] = "3201" - A287298 [ 5] = "4301" - A287298 [ 6] = "452013" - A287298 [ 7] = "6250341" - A287298 [ 8] = "47302651" - A287298 [ 9] = "823146570" - A287298 [10] = "9814072356" - A287298 [11] = "A8701245369" - A287298 [12] = "B8750A649321" - A287298 [13] = "CBA504216873" - A287298 [14] = "DC71B30685A924" - A287298 [15] = "EDAC93B24658701" - A287298 [16] = "FED5B39A42706C81" - A287298 [17] = "GFED5A31C6B79802" - A287298 [18] = "HGF80ADC53712EB649" - A287298 [19] = "IHGFD3408C6E715A2B9" - A287298 [20] = "JIHG03DAC457BFE96281" - A287298 [21] = "" - A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [ 0] = "" + A287298 [ 1] = "" + A287298 [ 2] = "1" + A287298 [ 3] = "1" + A287298 [ 4] = "3201" + A287298 [ 5] = "4301" + A287298 [ 6] = "452013" + A287298 [ 7] = "6250341" + A287298 [ 8] = "47302651" + A287298 [ 9] = "823146570" + A287298 [10] = "9814072356" + A287298 [11] = "A8701245369" + A287298 [12] = "B8750A649321" + A287298 [13] = "CBA504216873" + A287298 [14] = "DC71B30685A924" + A287298 [15] = "EDAC93B24658701" + A287298 [16] = "FED5B39A42706C81" + A287298 [17] = "GFED5A31C6B79802" + A287298 [18] = "HGF80ADC53712EB649" + A287298 [19] = "IHGFD3408C6E715A2B9" + A287298 [20] = "JIHG03DAC457BFE96281" + A287298 [21] = "" + A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [23] = "MLKJEFG5IC1D9H8042AB376" + A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41" + A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG" } diff --git a/challenge-149/abigail/data/a287298.java b/challenge-149/abigail/data/a287298.java index 80dc1fddf8..8779b9913b 100644 --- a/challenge-149/abigail/data/a287298.java +++ b/challenge-149/abigail/data/a287298.java @@ -1,26 +1,30 @@ public static void main (String [] args) { - String [] A287298 = new String [23]; - A287298 [ 0] = ""; - A287298 [ 1] = ""; - A287298 [ 2] = "1"; - A287298 [ 3] = "1"; - A287298 [ 4] = "3201"; - A287298 [ 5] = "4301"; - A287298 [ 6] = "452013"; - A287298 [ 7] = "6250341"; - A287298 [ 8] = "47302651"; - A287298 [ 9] = "823146570"; - A287298 [10] = "9814072356"; - A287298 [11] = "A8701245369"; - A287298 [12] = "B8750A649321"; - A287298 [13] = "CBA504216873"; - A287298 [14] = "DC71B30685A924"; - A287298 [15] = "EDAC93B24658701"; - A287298 [16] = "FED5B39A42706C81"; - A287298 [17] = "GFED5A31C6B79802"; - A287298 [18] = "HGF80ADC53712EB649"; - A287298 [19] = "IHGFD3408C6E715A2B9"; - A287298 [20] = "JIHG03DAC457BFE96281"; - A287298 [21] = ""; - A287298 [22] = "LKJIG5D14B9032FHAC867E"; + int max_base = 25; + String [] A287298 = new String [26]; + A287298 [ 0] = ""; + A287298 [ 1] = ""; + A287298 [ 2] = "1"; + A287298 [ 3] = "1"; + A287298 [ 4] = "3201"; + A287298 [ 5] = "4301"; + A287298 [ 6] = "452013"; + A287298 [ 7] = "6250341"; + A287298 [ 8] = "47302651"; + A287298 [ 9] = "823146570"; + A287298 [10] = "9814072356"; + A287298 [11] = "A8701245369"; + A287298 [12] = "B8750A649321"; + A287298 [13] = "CBA504216873"; + A287298 [14] = "DC71B30685A924"; + A287298 [15] = "EDAC93B24658701"; + A287298 [16] = "FED5B39A42706C81"; + A287298 [17] = "GFED5A31C6B79802"; + A287298 [18] = "HGF80ADC53712EB649"; + A287298 [19] = "IHGFD3408C6E715A2B9"; + A287298 [20] = "JIHG03DAC457BFE96281"; + A287298 [21] = ""; + A287298 [22] = "LKJIG5D14B9032FHAC867E"; + A287298 [23] = "MLKJEFG5IC1D9H8042AB376"; + A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41"; + A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG"; } diff --git a/challenge-149/abigail/data/a287298.js b/challenge-149/abigail/data/a287298.js index a66464a663..0f26cb68b2 100644 --- a/challenge-149/abigail/data/a287298.js +++ b/challenge-149/abigail/data/a287298.js @@ -1,22 +1,25 @@ let A287298 = [] -A287298 [ 2] = "1" -A287298 [ 3] = "1" -A287298 [ 4] = "3201" -A287298 [ 5] = "4301" -A287298 [ 6] = "452013" -A287298 [ 7] = "6250341" -A287298 [ 8] = "47302651" -A287298 [ 9] = "823146570" -A287298 [10] = "9814072356" -A287298 [11] = "A8701245369" -A287298 [12] = "B8750A649321" -A287298 [13] = "CBA504216873" -A287298 [14] = "DC71B30685A924" -A287298 [15] = "EDAC93B24658701" -A287298 [16] = "FED5B39A42706C81" -A287298 [17] = "GFED5A31C6B79802" -A287298 [18] = "HGF80ADC53712EB649" -A287298 [19] = "IHGFD3408C6E715A2B9" -A287298 [20] = "JIHG03DAC457BFE96281" -A287298 [22] = "LKJIG5D14B9032FHAC867E" +A287298 [ 2] = "1" +A287298 [ 3] = "1" +A287298 [ 4] = "3201" +A287298 [ 5] = "4301" +A287298 [ 6] = "452013" +A287298 [ 7] = "6250341" +A287298 [ 8] = "47302651" +A287298 [ 9] = "823146570" +A287298 [10] = "9814072356" +A287298 [11] = "A8701245369" +A287298 [12] = "B8750A649321" +A287298 [13] = "CBA504216873" +A287298 [14] = "DC71B30685A924" +A287298 [15] = "EDAC93B24658701" +A287298 [16] = "FED5B39A42706C81" +A287298 [17] = "GFED5A31C6B79802" +A287298 [18] = "HGF80ADC53712EB649" +A287298 [19] = "IHGFD3408C6E715A2B9" +A287298 [20] = "JIHG03DAC457BFE96281" +A287298 [22] = "LKJIG5D14B9032FHAC867E" +A287298 [23] = "MLKJEFG5IC1D9H8042AB376" +A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41" +A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/a287298.lua b/challenge-149/abigail/data/a287298.lua index 9d074430e3..9d68d9b25d 100644 --- a/challenge-149/abigail/data/a287298.lua +++ b/challenge-149/abigail/data/a287298.lua @@ -1,22 +1,25 @@ A287298 = {} -A287298 [ 2] = "1" -A287298 [ 3] = "1" -A287298 [ 4] = "3201" -A287298 [ 5] = "4301" -A287298 [ 6] = "452013" -A287298 [ 7] = "6250341" -A287298 [ 8] = "47302651" -A287298 [ 9] = "823146570" -A287298 [10] = "9814072356" -A287298 [11] = "A8701245369" -A287298 [12] = "B8750A649321" -A287298 [13] = "CBA504216873" -A287298 [14] = "DC71B30685A924" -A287298 [15] = "EDAC93B24658701" -A287298 [16] = "FED5B39A42706C81" -A287298 [17] = "GFED5A31C6B79802" -A287298 [18] = "HGF80ADC53712EB649" -A287298 [19] = "IHGFD3408C6E715A2B9" -A287298 [20] = "JIHG03DAC457BFE96281" -A287298 [22] = "LKJIG5D14B9032FHAC867E" +A287298 [ 2] = "1" +A287298 [ 3] = "1" +A287298 [ 4] = "3201" +A287298 [ 5] = "4301" +A287298 [ 6] = "452013" +A287298 [ 7] = "6250341" +A287298 [ 8] = "47302651" +A287298 [ 9] = "823146570" +A287298 [10] = "9814072356" +A287298 [11] = "A8701245369" +A287298 [12] = "B8750A649321" +A287298 [13] = "CBA504216873" +A287298 [14] = "DC71B30685A924" +A287298 [15] = "EDAC93B24658701" +A287298 [16] = "FED5B39A42706C81" +A287298 [17] = "GFED5A31C6B79802" +A287298 [18] = "HGF80ADC53712EB649" +A287298 [19] = "IHGFD3408C6E715A2B9" +A287298 [20] = "JIHG03DAC457BFE96281" +A287298 [22] = "LKJIG5D14B9032FHAC867E" +A287298 [23] = "MLKJEFG5IC1D9H8042AB376" +A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41" +A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/a287298.p b/challenge-149/abigail/data/a287298.p index 10f45e6e45..da898ba158 100644 --- a/challenge-149/abigail/data/a287298.p +++ b/challenge-149/abigail/data/a287298.p @@ -1,28 +1,32 @@ var - A287298: array [0 .. 22] of string; + A287298: array [0 .. 25] of string; + max_base: integer = 25; begin - A287298 [ 0] = ''; - A287298 [ 1] = ''; - A287298 [ 2] = '1'; - A287298 [ 3] = '1'; - A287298 [ 4] = '3201'; - A287298 [ 5] = '4301'; - A287298 [ 6] = '452013'; - A287298 [ 7] = '6250341'; - A287298 [ 8] = '47302651'; - A287298 [ 9] = '823146570'; - A287298 [10] = '9814072356'; - A287298 [11] = 'A8701245369'; - A287298 [12] = 'B8750A649321'; - A287298 [13] = 'CBA504216873'; - A287298 [14] = 'DC71B30685A924'; - A287298 [15] = 'EDAC93B24658701'; - A287298 [16] = 'FED5B39A42706C81'; - A287298 [17] = 'GFED5A31C6B79802'; - A287298 [18] = 'HGF80ADC53712EB649'; - A287298 [19] = 'IHGFD3408C6E715A2B9'; - A287298 [20] = 'JIHG03DAC457BFE96281'; - A287298 [21] = ''; - A287298 [22] = 'LKJIG5D14B9032FHAC867E'; + A287298 [ 0] = ''; + A287298 [ 1] = ''; + A287298 [ 2] := '1'; + A287298 [ 3] := '1'; + A287298 [ 4] := '3201'; + A287298 [ 5] := '4301'; + A287298 [ 6] := '452013'; + A287298 [ 7] := '6250341'; + A287298 [ 8] := '47302651'; + A287298 [ 9] := '823146570'; + A287298 [10] := '9814072356'; + A287298 [11] := 'A8701245369'; + A287298 [12] := 'B8750A649321'; + A287298 [13] := 'CBA504216873'; + A287298 [14] := 'DC71B30685A924'; + A287298 [15] := 'EDAC93B24658701'; + A287298 [16] := 'FED5B39A42706C81'; + A287298 [17] := 'GFED5A31C6B79802'; + A287298 [18] := 'HGF80ADC53712EB649'; + A287298 [19] := 'IHGFD3408C6E715A2B9'; + A287298 [20] := 'JIHG03DAC457BFE96281'; + A287298 [21] = ''; + A287298 [22] := 'LKJIG5D14B9032FHAC867E'; + A287298 [23] := 'MLKJEFG5IC1D9H8042AB376'; + A287298 [24] := 'NMLKJ2BD0639GFE7C8IH5A41'; + A287298 [25] := 'ONMLKD8CJE2H47F6395I0B1AG'; end. diff --git a/challenge-149/abigail/data/a287298.pl b/challenge-149/abigail/data/a287298.pl index 5842553b70..118b1cf931 100644 --- a/challenge-149/abigail/data/a287298.pl +++ b/challenge-149/abigail/data/a287298.pl @@ -1,22 +1,25 @@ my @A287298; -$A287298 [ 2] = "1"; -$A287298 [ 3] = "1"; -$A287298 [ 4] = "3201"; -$A287298 [ 5] = "4301"; -$A287298 [ 6] = "452013"; -$A287298 [ 7] = "6250341"; -$A287298 [ 8] = "47302651"; -$A287298 [ 9] = "823146570"; -$A287298 [10] = "9814072356"; -$A287298 [11] = "A8701245369"; -$A287298 [12] = "B8750A649321"; -$A287298 [13] = "CBA504216873"; -$A287298 [14] = "DC71B30685A924"; -$A287298 [15] = "EDAC93B24658701"; -$A287298 [16] = "FED5B39A42706C81"; -$A287298 [17] = "GFED5A31C6B79802"; -$A287298 [18] = "HGF80ADC53712EB649"; -$A287298 [19] = "IHGFD3408C6E715A2B9"; -$A287298 [20] = "JIHG03DAC457BFE96281"; -$A287298 [22] = "LKJIG5D14B9032FHAC867E"; +$A287298 [ 2] = "1"; +$A287298 [ 3] = "1"; +$A287298 [ 4] = "3201"; +$A287298 [ 5] = "4301"; +$A287298 [ 6] = "452013"; +$A287298 [ 7] = "6250341"; +$A287298 [ 8] = "47302651"; +$A287298 [ 9] = "823146570"; +$A287298 [10] = "9814072356"; +$A287298 [11] = "A8701245369"; +$A287298 [12] = "B8750A649321"; +$A287298 [13] = "CBA504216873"; +$A287298 [14] = "DC71B30685A924"; +$A287298 [15] = "EDAC93B24658701"; +$A287298 [16] = "FED5B39A42706C81"; +$A287298 [17] = "GFED5A31C6B79802"; +$A287298 [18] = "HGF80ADC53712EB649"; +$A287298 [19] = "IHGFD3408C6E715A2B9"; +$A287298 [20] = "JIHG03DAC457BFE96281"; +$A287298 [22] = "LKJIG5D14B9032FHAC867E"; +$A287298 [23] = "MLKJEFG5IC1D9H8042AB376"; +$A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41"; +$A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG"; diff --git a/challenge-149/abigail/data/a287298.py b/challenge-149/abigail/data/a287298.py index 9d074430e3..9d68d9b25d 100644 --- a/challenge-149/abigail/data/a287298.py +++ b/challenge-149/abigail/data/a287298.py @@ -1,22 +1,25 @@ A287298 = {} -A287298 [ 2] = "1" -A287298 [ 3] = "1" -A287298 [ 4] = "3201" -A287298 [ 5] = "4301" -A287298 [ 6] = "452013" -A287298 [ 7] = "6250341" -A287298 [ 8] = "47302651" -A287298 [ 9] = "823146570" -A287298 [10] = "9814072356" -A287298 [11] = "A8701245369" -A287298 [12] = "B8750A649321" -A287298 [13] = "CBA504216873" -A287298 [14] = "DC71B30685A924" -A287298 [15] = "EDAC93B24658701" -A287298 [16] = "FED5B39A42706C81" -A287298 [17] = "GFED5A31C6B79802" -A287298 [18] = "HGF80ADC53712EB649" -A287298 [19] = "IHGFD3408C6E715A2B9" -A287298 [20] = "JIHG03DAC457BFE96281" -A287298 [22] = "LKJIG5D14B9032FHAC867E" +A287298 [ 2] = "1" +A287298 [ 3] = "1" +A287298 [ 4] = "3201" +A287298 [ 5] = "4301" +A287298 [ 6] = "452013" +A287298 [ 7] = "6250341" +A287298 [ 8] = "47302651" +A287298 [ 9] = "823146570" +A287298 [10] = "9814072356" +A287298 [11] = "A8701245369" +A287298 [12] = "B8750A649321" +A287298 [13] = "CBA504216873" +A287298 [14] = "DC71B30685A924" +A287298 [15] = "EDAC93B24658701" +A287298 [16] = "FED5B39A42706C81" +A287298 [17] = "GFED5A31C6B79802" +A287298 [18] = "HGF80ADC53712EB649" +A287298 [19] = "IHGFD3408C6E715A2B9" +A287298 [20] = "JIHG03DAC457BFE96281" +A287298 [22] = "LKJIG5D14B9032FHAC867E" +A287298 [23] = "MLKJEFG5IC1D9H8042AB376" +A287298 [24] = "NMLKJ2BD0639GFE7C8IH5A41" +A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/a287298.r b/challenge-149/abigail/data/a287298.r index 43c2377e66..2987d1b55e 100644 --- a/challenge-149/abigail/data/a287298.r +++ b/challenge-149/abigail/data/a287298.r @@ -1,22 +1,26 @@ A287298 <- c () +max_base <- 25 -A287298 [[ 2]] <- "1" -A287298 [[ 3]] <- "1" -A287298 [[ 4]] <- "3201" -A287298 [[ 5]] <- "4301" -A287298 [[ 6]] <- "452013" -A287298 [[ 7]] <- "6250341" -A287298 [[ 8]] <- "47302651" -A287298 [[ 9]] <- "823146570" -A287298 [[10]] <- "9814072356" -A287298 [[11]] <- "A8701245369" -A287298 [[12]] <- "B8750A649321" -A287298 [[13]] <- "CBA504216873" -A287298 [[14]] <- "DC71B30685A924" -A287298 [[15]] <- "EDAC93B24658701" -A287298 [[16]] <- "FED5B39A42706C81" -A287298 [[17]] <- "GFED5A31C6B79802" -A287298 [[18]] <- "HGF80ADC53712EB649" -A287298 [[19]] <- "IHGFD3408C6E715A2B9" -A287298 [[20]] <- "JIHG03DAC457BFE96281" -A287298 [[22]] <- "LKJIG5D14B9032FHAC867E" +A287298 [[ 2]] <- "1" +A287298 [[ 3]] <- "1" +A287298 [[ 4]] <- "3201" +A287298 [[ 5]] <- "4301" +A287298 [[ 6]] <- "452013" +A287298 [[ 7]] <- "6250341" +A287298 [[ 8]] <- "47302651" +A287298 [[ 9]] <- "823146570" +A287298 [[10]] <- "9814072356" +A287298 [[11]] <- "A8701245369" +A287298 [[12]] <- "B8750A649321" +A287298 [[13]] <- "CBA504216873" +A287298 [[14]] <- "DC71B30685A924" +A287298 [[15]] <- "EDAC93B24658701" +A287298 [[16]] <- "FED5B39A42706C81" +A287298 [[17]] <- "GFED5A31C6B79802" +A287298 [[18]] <- "HGF80ADC53712EB649" +A287298 [[19]] <- "IHGFD3408C6E715A2B9" +A287298 [[20]] <- "JIHG03DAC457BFE96281" +A287298 [[22]] <- "LKJIG5D14B9032FHAC867E" +A287298 [[23]] <- "MLKJEFG5IC1D9H8042AB376" +A287298 [[24]] <- "NMLKJ2BD0639GFE7C8IH5A41" +A287298 [[25]] <- "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/a287298.rb b/challenge-149/abigail/data/a287298.rb index eb03f29a33..9af3e7bf1c 100644 --- a/challenge-149/abigail/data/a287298.rb +++ b/challenge-149/abigail/data/a287298.rb @@ -1,22 +1,25 @@ A287298 = [] -A287298[ 2] = "1" -A287298[ 3] = "1" -A287298[ 4] = "3201" -A287298[ 5] = "4301" -A287298[ 6] = "452013" -A287298[ 7] = "6250341" -A287298[ 8] = "47302651" -A287298[ 9] = "823146570" -A287298[10] = "9814072356" -A287298[11] = "A8701245369" -A287298[12] = "B8750A649321" -A287298[13] = "CBA504216873" -A287298[14] = "DC71B30685A924" -A287298[15] = "EDAC93B24658701" -A287298[16] = "FED5B39A42706C81" -A287298[17] = "GFED5A31C6B79802" -A287298[18] = "HGF80ADC53712EB649" -A287298[19] = "IHGFD3408C6E715A2B9" -A287298[20] = "JIHG03DAC457BFE96281" -A287298[22] = "LKJIG5D14B9032FHAC867E" +A287298[ 2] = "1" +A287298[ 3] = "1" +A287298[ 4] = "3201" +A287298[ 5] = "4301" +A287298[ 6] = "452013" +A287298[ 7] = "6250341" +A287298[ 8] = "47302651" +A287298[ 9] = "823146570" +A287298[10] = "9814072356" +A287298[11] = "A8701245369" +A287298[12] = "B8750A649321" +A287298[13] = "CBA504216873" +A287298[14] = "DC71B30685A924" +A287298[15] = "EDAC93B24658701" +A287298[16] = "FED5B39A42706C81" +A287298[17] = "GFED5A31C6B79802" +A287298[18] = "HGF80ADC53712EB649" +A287298[19] = "IHGFD3408C6E715A2B9" +A287298[20] = "JIHG03DAC457BFE96281" +A287298[22] = "LKJIG5D14B9032FHAC867E" +A287298[23] = "MLKJEFG5IC1D9H8042AB376" +A287298[24] = "NMLKJ2BD0639GFE7C8IH5A41" +A287298[25] = "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/a287298.scm b/challenge-149/abigail/data/a287298.scm index 0c0bc9f3a4..9647a37263 100644 --- a/challenge-149/abigail/data/a287298.scm +++ b/challenge-149/abigail/data/a287298.scm @@ -1,25 +1,29 @@ (define A287298 '()) +(define max_base 25) -(set! A287298 (append A287298 (list ""))) -(set! A287298 (append A287298 (list ""))) -(set! A287298 (append A287298 (list "1"))) -(set! A287298 (append A287298 (list "1"))) -(set! A287298 (append A287298 (list "3201"))) -(set! A287298 (append A287298 (list "4301"))) -(set! A287298 (append A287298 (list "452013"))) -(set! A287298 (append A287298 (list "6250341"))) -(set! A287298 (append A287298 (list "47302651"))) -(set! A287298 (append A287298 (list "823146570"))) -(set! A287298 (append A287298 (list "9814072356"))) -(set! A287298 (append A287298 (list "A8701245369"))) -(set! A287298 (append A287298 (list "B8750A649321"))) -(set! A287298 (append A287298 (list "CBA504216873"))) -(set! A287298 (append A287298 (list "DC71B30685A924"))) -(set! A287298 (append A287298 (list "EDAC93B24658701"))) -(set! A287298 (append A287298 (list "FED5B39A42706C81"))) -(set! A287298 (append A287298 (list "GFED5A31C6B79802"))) -(set! A287298 (append A287298 (list "HGF80ADC53712EB649"))) -(set! A287298 (append A287298 (list "IHGFD3408C6E715A2B9"))) -(set! A287298 (append A287298 (list "JIHG03DAC457BFE96281"))) -(set! A287298 (append A287298 (list ""))) -(set! A287298 (append A287298 (list "LKJIG5D14B9032FHAC867E"))) +(set! A287298 (append A287298 (list ""))) +(set! A287298 (append A287298 (list ""))) +(set! A287298 (append A287298 (list "1"))) +(set! A287298 (append A287298 (list "1"))) +(set! A287298 (append A287298 (list "3201"))) +(set! A287298 (append A287298 (list "4301"))) +(set! A287298 (append A287298 (list "452013"))) +(set! A287298 (append A287298 (list "6250341"))) +(set! A287298 (append A287298 (list "47302651"))) +(set! A287298 (append A287298 (list "823146570"))) +(set! A287298 (append A287298 (list "9814072356"))) +(set! A287298 (append A287298 (list "A8701245369"))) +(set! A287298 (append A287298 (list "B8750A649321"))) +(set! A287298 (append A287298 (list "CBA504216873"))) +(set! A287298 (append A287298 (list "DC71B30685A924"))) +(set! A287298 (append A287298 (list "EDAC93B24658701"))) +(set! A287298 (append A287298 (list "FED5B39A42706C81"))) +(set! A287298 (append A287298 (list "GFED5A31C6B79802"))) +(set! A287298 (append A287298 (list "HGF80ADC53712EB649"))) +(set! A287298 (append A287298 (list "IHGFD3408C6E715A2B9"))) +(set! A287298 (append A287298 (list "JIHG03DAC457BFE96281"))) +(set! A287298 (append A287298 (list ""))) +(set! A287298 (append A287298 (list "LKJIG5D14B9032FHAC867E"))) +(set! A287298 (append A287298 (list "MLKJEFG5IC1D9H8042AB376"))) +(set! A287298 (append A287298 (list "NMLKJ2BD0639GFE7C8IH5A41"))) +(set! A287298 (append A287298 (list "ONMLKD8CJE2H47F6395I0B1AG"))) diff --git a/challenge-149/abigail/data/a287298.sh b/challenge-149/abigail/data/a287298.sh index 01bac4a026..4347c8c38d 100644 --- a/challenge-149/abigail/data/a287298.sh +++ b/challenge-149/abigail/data/a287298.sh @@ -20,3 +20,6 @@ A287298[18]=HGF80ADC53712EB649 A287298[19]=IHGFD3408C6E715A2B9 A287298[20]=JIHG03DAC457BFE96281 A287298[22]=LKJIG5D14B9032FHAC867E +A287298[23]=MLKJEFG5IC1D9H8042AB376 +A287298[24]=NMLKJ2BD0639GFE7C8IH5A41 +A287298[25]=ONMLKD8CJE2H47F6395I0B1AG diff --git a/challenge-149/abigail/data/a287298.tcl b/challenge-149/abigail/data/a287298.tcl index 6d144950e9..43c1477ecb 100644 --- a/challenge-149/abigail/data/a287298.tcl +++ b/challenge-149/abigail/data/a287298.tcl @@ -1,25 +1,28 @@ set A287298 list -lset A287298 0 "" -lset A287298 1 "" -lset A287298 2 "1" -lset A287298 3 "1" -lset A287298 4 "3201" -lset A287298 5 "4301" -lset A287298 6 "452013" -lset A287298 7 "6250341" -lset A287298 8 "47302651" -lset A287298 9 "823146570" -lset A287298 10 "9814072356" -lset A287298 11 "A8701245369" -lset A287298 12 "B8750A649321" -lset A287298 13 "CBA504216873" -lset A287298 14 "DC71B30685A924" -lset A287298 15 "EDAC93B24658701" -lset A287298 16 "FED5B39A42706C81" -lset A287298 17 "GFED5A31C6B79802" -lset A287298 18 "HGF80ADC53712EB649" -lset A287298 19 "IHGFD3408C6E715A2B9" -lset A287298 20 "JIHG03DAC457BFE96281" -lset A287298 21 "" -lset A287298 22 "LKJIG5D14B9032FHAC867E" +lset A287298 0 "" +lset A287298 1 "" +lset A287298 2 "1" +lset A287298 3 "1" +lset A287298 4 "3201" +lset A287298 5 "4301" +lset A287298 6 "452013" +lset A287298 7 "6250341" +lset A287298 8 "47302651" +lset A287298 9 "823146570" +lset A287298 10 "9814072356" +lset A287298 11 "A8701245369" +lset A287298 12 "B8750A649321" +lset A287298 13 "CBA504216873" +lset A287298 14 "DC71B30685A924" +lset A287298 15 "EDAC93B24658701" +lset A287298 16 "FED5B39A42706C81" +lset A287298 17 "GFED5A31C6B79802" +lset A287298 18 "HGF80ADC53712EB649" +lset A287298 19 "IHGFD3408C6E715A2B9" +lset A287298 20 "JIHG03DAC457BFE96281" +lset A287298 21 "" +lset A287298 22 "LKJIG5D14B9032FHAC867E" +lset A287298 23 "MLKJEFG5IC1D9H8042AB376" +lset A287298 24 "NMLKJ2BD0639GFE7C8IH5A41" +lset A287298 25 "ONMLKD8CJE2H47F6395I0B1AG" diff --git a/challenge-149/abigail/data/preprocess b/challenge-149/abigail/data/preprocess index 830cde7df1..20cdfa2cb0 100755 --- a/challenge-149/abigail/data/preprocess +++ b/challenge-149/abigail/data/preprocess @@ -17,9 +17,16 @@ my $URL = "https://oeis.org/A287298/b287298.txt"; my @chars = (0 .. 9, 'A' .. 'Z'); my @A287298; +my $ARRAY = 'A287298'; +my $file = lc $ARRAY; + +$ENV {BC_LINE_LENGTH} = 1000; foreach my $line (split (/\n/ => get $URL), - "22 340653564758245010607213613056") { + "22 340653564758245010607213613056", + "23 20837313275713865979999662611449", + "24 1331214423741263089885099589776609", + "25 88663641996555130440258540215016516") { next unless $line =~ /^([0-9]+)\s+([0-9]+)/; my ($base, $value) = ($1, $2); my $value_in_base = `echo "obase=$base; $value" | bc` @@ -28,54 +35,100 @@ foreach my $line (split (/\n/ => get $URL), $A287298 [$base] = [$value_in_base, $value]; } -open my $awk_h, ">", "a287298.awk" or die "open a287298.awk: $!"; -open my $bash_h, ">", "a287298.sh" or die "open a287298.sh: $!"; -open my $basic_h, ">", "a287298.bas" or die "open a287298.bas: $!"; -open my $bc_h, ">", "a287298.bc" or die "open a287298.bc: $!"; -open my $c_h, ">", "a287298.c" or die "open a287298.c: $!"; -open my $go_h, ">", "a287298.go" or die "open a287298.go: $!"; -open my $java_h, ">", "a287298.java" or die "open a287298.java: $!"; -open my $lua_h, ">", "a287298.lua" or die "open a287298.lua: $!"; -open my $node_h, ">", "a287298.js" or die "open a287298.js: $!"; -open my $pascal_h, ">", "a287298.p" or die "open a287298.p: $!"; -open my $perl_h, ">", "a287298.pl" or die "open a287298.pl: $!"; -open my $python_h, ">", "a287298.py" or die "open a287298.py: $!"; -open my $r_h, ">", "a287298.r" or die "open a287298.r: $!"; -open my $ruby_h, ">", "a287298.rb" or die "open a287298.rb: $!"; -open my $scheme_h, ">", "a287298.scm" or die "open a287298.scm: $!"; -open my $tcl_h, ">", "a287298.tcl" or die "open a287298.tcl: $!"; - -my $basic_ln = 1000; +my $size = @A287298; +my $max_base = $size - 1; +my $width = 2 + length $A287298 [$max_base] [0]; + + +open my $awk_h, ">", "$file.awk" or die "open $file.awk: $!"; +open my $bash_h, ">", "$file.sh" or die "open $file.sh: $!"; +open my $basic_h, ">", "$file.bas" or die "open $file.bas: $!"; +open my $bc_h, ">", "$file.bc" or die "open $file.bc: $!"; +open my $c_h, ">", "$file.c" or die "open $file.c: $!"; +open my $go_h, ">", "$file.go" or die "open $file.go: $!"; +open my $java_h, ">", "$file.java" or die "open $file.java: $!"; +open my $lua_h, ">", "$file.lua" or die "open $file.lua: $!"; +open my $node_h, ">", "$file.js" or die "open $file.js: $!"; +open my $pascal_h, ">", "$file.p" or die "open $file.p: $!"; +open my $perl_h, ">", "$file.pl" or die "open $file.pl: $!"; +open my $python_h, ">", "$file.py" or die "open $file.py: $!"; +open my $r_h, ">", "$file.r" or die "open $file.r: $!"; +open my $ruby_h, ">", "$file.rb" or die "open $file.rb: $!"; +open my $scheme_h, ">", "$file.scm" or die "open $file.scm: $!"; +open my $tcl_h, ">", "$file.tcl" or die "open $file.tcl: $!"; + +my $basic_ln = 990; say $awk_h "BEGIN {"; -say $bash_h "declare -a A287298\n"; -say $basic_h "$basic_ln INPUT N\n\n"; -say $c_h "int main (void) {"; -say $c_h " char * A287298 [23];\n"; -say $go_h "func main () {"; -say $go_h " var A287298 [23] string\n"; -say $java_h " public static void main (String [] args) {"; -say $java_h " String [] A287298 = new String [23];"; -say $lua_h "A287298 = {}\n"; -say $node_h "let A287298 = []\n"; -say $pascal_h "var"; -say $pascal_h " A287298: array [0 .. 22] of string;\n"; -say $pascal_h "begin"; -say $perl_h "my \@A287298;\n"; -say $python_h "A287298 = {}\n"; -say $r_h "A287298 <- c ()\n"; -say $ruby_h "A287298 = []\n"; -say $scheme_h "(define A287298 '())\n"; -say $tcl_h "set A287298 list\n"; + +say $bash_h "declare -a $ARRAY\n"; + +say $basic_h ($basic_ln += 10), " maxbase = $max_base\n"; +say $basic_h ($basic_ln += 10), " INPUT N\n\n"; + +say $bc_h "max_base = $max_base\n"; + +print $c_h <<~ "--"; + int main (void) { + char * $ARRAY [$size]; + size_t max_base = $max_base; + + -- + +print $go_h <<~ "--"; + func main () { + max_base := $max_base + var $ARRAY [$size] string + + -- + +print $java_h <<~ "--"; + public static void main (String [] args) { + int max_base = $max_base; + String [] $ARRAY = new String [$size]; + -- + +say $lua_h "$ARRAY = {}\n"; + +say $node_h "let $ARRAY = []\n"; + +print $pascal_h <<~ "--"; + var + $ARRAY: array [0 .. $max_base] of string; + max_base: integer = $max_base; + + begin + -- + +say $perl_h "my \@$ARRAY;\n"; + +say $python_h "$ARRAY = {}\n"; + +print $r_h <<~ "--"; + $ARRAY <- c () + max_base <- $max_base + + -- + +say $ruby_h "$ARRAY = []\n"; + +print $scheme_h <<~ "--"; + (define $ARRAY '()) + (define max_base $max_base) + + -- + +say $tcl_h "set $ARRAY list\n"; while (my ($i, $info) = each @A287298) { if (!defined $info) { - printf $c_h " A287298 [%2d] = %24s;\n", $i, "NULL"; - printf $go_h " A287298 [%2d] = %24s\n", $i, '""'; - printf $java_h " A287298 [%2d] = %24s;\n", $i, '""'; - printf $pascal_h " A287298 [%2d] = %24s;\n", $i, "''"; - printf $scheme_h "(set! A287298 (append A287298 (list %24s)))\n", '""'; - printf $tcl_h "lset A287298 %2d %24s\n", $i, '""'; + printf $c_h " $ARRAY [%2d] = %${width}s;\n", $i, "NULL"; + printf $go_h " $ARRAY [%2d] = %${width}s\n", $i, '""'; + printf $java_h " $ARRAY [%2d] = %${width}s;\n", $i, '""'; + printf $pascal_h " $ARRAY [%2d] = %${width}s;\n", $i, "''"; + printf $scheme_h "(set! $ARRAY (append $ARRAY (list %${width}s)))\n", + '""'; + printf $tcl_h "lset $ARRAY %2d %${width}s\n", $i, '""'; next; } my ($value, $decimal_value) = @$info; @@ -85,85 +138,86 @@ while (my ($i, $info) = each @A287298) { # # AWK # - printf $awk_h " A287298 [%2d] = %24s\n", $i, $dqvalue; + printf $awk_h " $ARRAY [%2d] = %${width}s\n", $i, $dqvalue; # # Bash # - printf $bash_h "A287298[%d]=%s\n", $i, $value; + printf $bash_h "${ARRAY}[%d]=%s\n", $i, $value; # # BASIC # - printf $basic_h "%04d IF N = %2d THEN PRINT %24s\n", + printf $basic_h "%04d IF N = %2d THEN PRINT %${width}s\n", ($basic_ln += 10), $i, $dqvalue; # # bc # if ($i <= 16) { - printf $bc_h "a287298 [%2d] = %30s\n", $i, $decimal_value; + printf $bc_h "\l$ARRAY [%2d] = %30s\n", $i, $decimal_value; } # # C # - printf $c_h " A287298 [%2d] = %24s;\n", $i, $dqvalue; + printf $c_h " $ARRAY [%2d] = %${width}s;\n", $i, $dqvalue; # # Go # - printf $go_h " A287298 [%2d] = %24s\n", $i, $dqvalue; + printf $go_h " $ARRAY [%2d] = %${width}s\n", $i, $dqvalue; # # Java # - printf $java_h " A287298 [%2d] = %24s;\n", $i, $dqvalue; + printf $java_h " $ARRAY [%2d] = %${width}s;\n", $i, $dqvalue; # # Lua # - printf $lua_h "A287298 [%2d] = %24s\n", $i, $dqvalue; + printf $lua_h "$ARRAY [%2d] = %${width}s\n", $i, $dqvalue; # # Node.js # - printf $node_h "A287298 [%2d] = %24s\n", $i, $dqvalue; + printf $node_h "$ARRAY [%2d] = %${width}s\n", $i, $dqvalue; # # Pascal # - printf $pascal_h " A287298 [%2d] = %24s;\n", $i, $sqvalue; + printf $pascal_h " $ARRAY [%2d] := %${width}s;\n", $i, $sqvalue; # # Perl # - printf $perl_h "\$A287298 [%2d] = %24s;\n", $i, $dqvalue; + printf $perl_h "\$$ARRAY [%2d] = %${width}s;\n", $i, $dqvalue; # # Python # - printf $python_h "A287298 [%2d] = %24s\n", $i, $dqvalue; + printf $python_h "$ARRAY [%2d] = %${width}s\n", $i, $dqvalue; # # R # - printf $r_h "A287298 [[%2d]] <- %24s\n", $i, $dqvalue; + printf $r_h "$ARRAY [[%2d]] <- %${width}s\n", $i, $dqvalue; # # Ruby # - printf $ruby_h "A287298[%2d] = %24s\n", $i, $dqvalue; + printf $ruby_h "${ARRAY}[%2d] = %${width}s\n", $i, $dqvalue; # # Scheme # - printf $scheme_h "(set! A287298 (append A287298 (list %24s)))\n", $dqvalue; + printf $scheme_h "(set! $ARRAY (append $ARRAY (list %${width}s)))\n", + $dqvalue; # # Tcl # - printf $tcl_h "lset A287298 %2d %24s\n", $i, $dqvalue; + printf $tcl_h "lset $ARRAY %2d %${width}s\n", $i, $dqvalue; } say $awk_h "}"; say $c_h "}"; @@ -172,19 +226,19 @@ say $java_h " }"; say $pascal_h "end."; -close $awk_h or die "close a287298.awk: $!"; -close $bash_h or die "close a287298.sh: $!"; -close $basic_h or die "close a287298.bas: $!"; -close $bc_h or die "close a287298.bc: $!"; -close $c_h or die "close a287298.c: $!"; -close $go_h or die "close a287298.go: $!"; -close $java_h or die "close a287298.java: $!"; -close $lua_h or die "close a287298.lua: $!"; -close $node_h or die "close a287298.js: $!"; -close $pascal_h or die "close a287298.p: $!"; -close $perl_h or die "close a287298.pl: $!"; -close $python_h or die "close a287298.py: $!"; -close $r_h or die "close a287298.r: $!"; -close $ruby_h or die "close a287298.rb: $!"; -close $scheme_h or die "close a287298.scm: $!"; -close $tcl_h or die "close a287298.tcl: $!"; +close $awk_h or die "close $file.awk: $!"; +close $bash_h or die "close $file.sh: $!"; +close $basic_h or die "close $file.bas: $!"; +close $bc_h or die "close $file.bc: $!"; +close $c_h or die "close $file.c: $!"; +close $go_h or die "close $file.go: $!"; +close $java_h or die "close $file.java: $!"; +close $lua_h or die "close $file.lua: $!"; +close $node_h or die "close $file.js: $!"; +close $pascal_h or die "close $file.p: $!"; +close $perl_h or die "close $file.pl: $!"; +close $python_h or die "close $file.py: $!"; +close $r_h or die "close $file.r: $!"; +close $ruby_h or die "close $file.rb: $!"; +close $scheme_h or die "close $file.scm: $!"; +close $tcl_h or die "close $file.tcl: $!"; diff --git a/challenge-149/abigail/go/ch-2.go b/challenge-149/abigail/go/ch-2.go index b13f0eb72c..e170bd8ce3 100644 --- a/challenge-149/abigail/go/ch-2.go +++ b/challenge-149/abigail/go/ch-2.go @@ -13,31 +13,35 @@ import ( ) func main () { - var A287298 [23] string + max_base := 25 + var A287298 [26] string - A287298 [ 0] = "" - A287298 [ 1] = "" - A287298 [ 2] = "1" - A287298 [ 3] = "1" - A287298 [ 4] = "3201" - A287298 [ 5] = "4301" - A287298 [ 6] = "452013" - A287298 [ 7] = "6250341" - A287298 [ 8] = "47302651" - A287298 [ 9] = "823146570" - A287298 [10] = "9814072356" - A287298 [11] = "A8701245369" - A287298 [12] = "B8750A649321" - A287298 [13] = "CBA504216873" - A287298 [14] = "DC71B30685A924" - A287298 [15] = "EDAC93B24658701" - A287298 [16] = "FED5B39A42706C81" - A287298 [17] = "GFED5A31C6B79802" - A287298 [18] = "HGF80ADC53712EB649" - A287298 [19] = "IHGFD3408C6E715A2B9" - A287298 [20] = "JIHG03DAC457BFE96281" - A287298 [21] = "" - A287298 [22] = "LKJIG5D14B9032FHAC867E" + A287298 [ 0] = "" + A287298 [ 1] = "" + A287298 [ 2] = "1" + A287298 [ 3] = "1" + A287298 [ 4] = "3201" + A287298 [ 5] = "4301" + A287298 [ 6] = "452013" + A287298 [ 7] = "6250341" + A287298 [ 8] = "47302651" + A287298 [ 9] = "823146570" + A287298 [10] = "9814072356" + A287298 [11] = "A8701245369" + A287298 [