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.

1 files changed, 30 insertions, 24 deletions

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