1 ti$="000000"
10 dim e(200):dim n(2020):dim s(2020)
11 for i=1 to 2020
12 n(i)=0
13 s(i)=0
14 next
15 s1=0:s2=0
20 read e(1)
30 for i=2 to 200
31 print i
40 read e(i)
50 c=2020-e(i)
60 if n(c)=1 then s1=c*e(i)
70 n(e(i))=1
75 if s(c) <> 0 then s2=s(c)*e(i)
80 for j=1 to i-1
90 if e(i)+e(j)<2020 then s(e(i)+e(j))=e(i)*e(j)
100 next
110 if s1<>0 and s2<>0 then goto 130
120 next
130 print "time: "ti$
140 print "part 1: "s1
150 print "part 2: "s2
160 end
9000 data 1889,1974,1983,1590,1530,1402,1731,1935,1404,1763,1733,1234,1706,633
9010 data 1524,880,1970,1815,1766,1587,1329,1386,1769,1709,1816,1672,75,1874
9020 data 1957,1241,1656,1290,1501,1456,1945,1375,1580,1738,1581,1704,1317,1651
9030 data 1971,1614,1668,1694,1862,562,1497,1460,1768,1797,1828,728,1826,1519
9040 data 1343,1850,1676,1932,1794,1295,1669,1995,1838,1253,1209,1288,1443,1436
9050 data 1788,1732,1289,74,1659,1264,1533,1938,1401,1748,1445,1941,1924,1807
9060 data 1772,1761,1805,1658,927,1294,1643,1308,1472,1822,1332,1220,1947,1352
9070 data 1782,1851,1789,1551,1490,1690,1989,1052,1340,1437,1378,1316,1835,1967
9080 data 1885,1487,1452,1480,1943,1760,1897,1632,1354,1843,1698,1467,1625,1421
9090 data 1482,1275,1341,1422,1586,1283,1686,1640,1987,1603,1131,1777,1864,1529
9100 data 1858,1665,1326,1804,1285,1449,1866,1762,1708,1699,1622,1774,1993,1796
9110 data 1825,1786,1518,1726,1577,1545,1494,1756,1611,2005,1888,1930,1538,1744
9120 data 894,1537,1513,1650,1898,1719,1615,1646,1758,1495,1717,1670,1759,1865
9130 data 1793,1484,1702,1861,1330,1767,1549,1536,717,2007,1902,1583,1682,1374
9140 data 1892,1839,1771,1624
Alles anzeigen