blob: 87d58125897213696579d4f38dec1498513df860 (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
0010 REM
0020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-149
0030 REM
0040 REM
0050 REM Run as: basic ch-2.bas < input-file
0060 REM
1000 maxbase = 25
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
|
