blob: 0102be462dfe418fec2cb3cc9ba5dd7442458e76 (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
0100 REM
0110 REM See ../README.md
0120 REM
0130 REM
0140 REM Run as: basic.pl ch-1.bas < input-file
0150 REM Input file should end with a negative number.
0160 REM
0170 REM
0180 REM We are making use of the CPAN module Language::Basic
0190 REM
1000 INPUT length
1005 IF length < 0 THEN END
1010 IF length = 2 THEN PRINT "65"
1020 IF length = 6 THEN PRINT "621770"
1030 IF length = 9 THEN PRINT "281089082"
1040 IF length = 10 THEN PRINT "2022652202"
1050 IF length = 10 THEN PRINT "2042832002"
1060 IF length = 12 THEN PRINT "868591084757"
1070 IF length = 12 THEN PRINT "872546974178"
1080 IF length = 12 THEN PRINT "872568754178"
1090 IF length = 13 THEN PRINT "6979302951885"
1100 IF length = 14 THEN PRINT "20313693904202"
1110 IF length = 14 THEN PRINT "20313839704202"
1120 IF length = 14 THEN PRINT "20331657922202"
1130 IF length = 14 THEN PRINT "20331875722202"
1140 IF length = 14 THEN PRINT "20333875702202"
1150 IF length = 14 THEN PRINT "40313893704200"
1160 IF length = 14 THEN PRINT "40351893720200"
1170 IF length = 15 THEN PRINT "200142385731002"
1180 IF length = 15 THEN PRINT "204238494066002"
1190 IF length = 15 THEN PRINT "221462345754122"
1200 IF length = 15 THEN PRINT "244062891224042"
1210 IF length = 15 THEN PRINT "245518996076442"
1220 IF length = 15 THEN PRINT "248359494187442"
1230 IF length = 15 THEN PRINT "403058392434500"
1240 IF length = 15 THEN PRINT "441054594034340"
1250 IF length = 15 THEN PRINT "816984566129618"
1260 IF length = 16 THEN PRINT "2078311262161202"
1270 IF length = 16 THEN PRINT "2133786945766212"
1280 IF length = 16 THEN PRINT "2135568943984212"
1290 IF length = 16 THEN PRINT "2135764587964212"
1300 IF length = 16 THEN PRINT "2135786765764212"
1310 IF length = 16 THEN PRINT "4135786945764210"
1320 IF length = 16 THEN PRINT "6157577986646405"
1330 IF length = 16 THEN PRINT "6889765708183410"
1340 IF length = 16 THEN PRINT "8052956026592517"
1350 IF length = 16 THEN PRINT "8052956206592517"
1360 IF length = 16 THEN PRINT "8191154686620818"
1370 IF length = 16 THEN PRINT "8191156864620818"
1380 IF length = 16 THEN PRINT "8191376864400818"
1390 IF length = 16 THEN PRINT "8650327689541457"
1400 IF length = 16 THEN PRINT "8650349867341457"
1410 IF length = 17 THEN PRINT "22542040692914522"
1420 IF length = 17 THEN PRINT "67725910561765640"
1430 IF length = 17 THEN PRINT "86965750494756968"
1440 IF length = 18 THEN PRINT "225342456863243522"
1450 IF length = 18 THEN PRINT "225342458663243522"
1460 IF length = 18 THEN PRINT "225342478643243522"
1470 IF length = 18 THEN PRINT "284684666566486482"
1480 IF length = 18 THEN PRINT "284684868364486482"
1490 IF length = 18 THEN PRINT "297128548234950692"
1500 IF length = 18 THEN PRINT "297128722852950692"
1510 IF length = 18 THEN PRINT "297148324656930692"
1520 IF length = 18 THEN PRINT "297148546434930692"
1530 IF length = 18 THEN PRINT "497168548234910690"
1540 IF length = 18 THEN PRINT "619431353040136925"
1550 IF length = 18 THEN PRINT "619631153042134925"
1560 IF length = 18 THEN PRINT "631688638047992345"
1570 IF length = 18 THEN PRINT "633288858025996145"
1580 IF length = 18 THEN PRINT "633488632647994145"
1590 IF length = 18 THEN PRINT "653488856225994125"
1600 IF length = 18 THEN PRINT "811865096390477018"
1610 IF length = 18 THEN PRINT "865721270017296468"
1620 IF length = 18 THEN PRINT "871975098681469178"
1630 IF length = 18 THEN PRINT "898907259301737498"
1640 IF length = 19 THEN PRINT "2042401829204402402"
1650 IF length = 19 THEN PRINT "2060303819041450202"
1660 IF length = 19 THEN PRINT "2420424089100600242"
1670 IF length = 19 THEN PRINT "2551755006254571552"
1680 IF length = 19 THEN PRINT "2702373360882732072"
1690 IF length = 19 THEN PRINT "2825378427312735282"
1700 IF length = 19 THEN PRINT "6531727101458000045"
1710 IF length = 19 THEN PRINT "6988066446726832640"
1720 IF length = 19 THEN PRINT "8066308349502036608"
1730 IF length = 19 THEN PRINT "8197906905009010818"
1740 IF length = 19 THEN PRINT "8200756128308135597"
1750 IF length = 19 THEN PRINT "8320411466598809138"
1760 IF length = 20 THEN PRINT "22134434735752443122"
1770 IF length = 20 THEN PRINT "22134434753752443122"
1780 IF length = 20 THEN PRINT "22134436953532443122"
1790 IF length = 20 THEN PRINT "22136414517954423122"
1800 IF length = 20 THEN PRINT "22136414971554423122"
1810 IF length = 20 THEN PRINT "22136456771730423122"
1820 IF length = 20 THEN PRINT "61952807156239928885"
1830 IF length = 20 THEN PRINT "61999171315484316965"
1840 IF length = 20 THEN PRINT "65459144877856561700"
1850 IF length = 21 THEN PRINT "208393425242000083802"
1860 IF length = 21 THEN PRINT "219518549668074815912"
1870 IF length = 21 THEN PRINT "257661195832219326752"
1880 IF length = 21 THEN PRINT "286694688797362186682"
1890 IF length = 21 THEN PRINT "837982875780054779738"
1900 IF length = 22 THEN PRINT "2414924301133245383042"
1910 IF length = 22 THEN PRINT "2414924323311045383042"
1920 IF length = 22 THEN PRINT "2414946523311023183042"
1930 IF length = 22 THEN PRINT "2576494891793995836752"
1940 IF length = 22 THEN PRINT "2576494893971995836752"
1950 IF length = 22 THEN PRINT "2620937863931054483162"
1960 IF length = 22 THEN PRINT "2620937863931054483162"
1970 IF length = 22 THEN PRINT "2620955641393276283162"
1980 IF length = 22 THEN PRINT "2622935621573476481162"
1990 IF length = 22 THEN PRINT "2622935643751276481162"
2000 IF length = 22 THEN PRINT "2622937641933274481162"
2010 IF length = 22 THEN PRINT "2622955841933256281162"
2020 IF length = 22 THEN PRINT "2622957843751254281162"
2030 IF length = 22 THEN PRINT "2727651947516658327272"
2040 IF length = 22 THEN PRINT "2747736918335953517072"
2050 IF length = 22 THEN PRINT "2788047668617596408872"
2060 IF length = 22 THEN PRINT "2788047848617776408872"
2070 IF length = 22 THEN PRINT "2788047868437576408872"
2080 IF length = 22 THEN PRINT "2788047888617376408872"
2090 IF length = 22 THEN PRINT "2939501759705522349392"
2100 IF length = 22 THEN PRINT "2939503375709360349392"
2110 IF length = 22 THEN PRINT "2939503537707740349392"
2120 IF length = 22 THEN PRINT "2939521359525562149392"
2130 IF length = 22 THEN PRINT "2939521557527542149392"
2140 IF length = 22 THEN PRINT "2939523577527340149392"
2150 IF length = 22 THEN PRINT "2939523779525320149392"
2160 IF length = 22 THEN PRINT "2959503377707360349192"
2170
|
