aboutsummaryrefslogtreecommitdiff
path: root/challenge-149/abigail/data/a287298.bas
blob: 05698b1333feaa3dd6f535ea17a4056ab5f664c2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
1000 maxbase = 25

1010 INPUT N


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"