diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-29 18:34:09 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-29 18:34:09 +0000 |
| commit | b0aed25176efe004fb22144d77b5cf5f4e13e90e (patch) | |
| tree | 25f2bce1a71879a1df57097702910056c1d932e7 /challenge-149/abigail/basic/ch-2.bas | |
| parent | dc6adce803a5d8affa26b0d58a4653866f0af722 (diff) | |
| parent | e0292606923eb1126eda9b1c335c3ec45f6fcec3 (diff) | |
| download | perlweeklychallenge-club-b0aed25176efe004fb22144d77b5cf5f4e13e90e.tar.gz perlweeklychallenge-club-b0aed25176efe004fb22144d77b5cf5f4e13e90e.tar.bz2 perlweeklychallenge-club-b0aed25176efe004fb22144d77b5cf5f4e13e90e.zip | |
Merge pull request #5578 from Abigail/abigail/week-149
Abigail/week 149
Diffstat (limited to 'challenge-149/abigail/basic/ch-2.bas')
| -rw-r--r-- | challenge-149/abigail/basic/ch-2.bas | 54 |
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 |