Advent of Code

__blackjack__ · December 1, 2020 at 11:58 PM

daxb Die Anmeldung ist nötig um die Punkte sammeln zu können, zu merken ob man schon den ersten Teil einer Aufgabe gelöst hat, bevor man den zweiten lesen kann, und natürlich weil in der Regel jeder Teilnehmer seine eigenen Eingabedaten bekommt. Es würde also keinem etwas nützen wenn ich beispielsweise die beiden Zahlen hier posten würde die bei mir heute als Ergebnis herausgekommen sind.

Manul Lösungen mit Mengen oder Wörterbüchern lassen sich sehr schlecht auf CBM BASIC übertragen, weil man sich so etwas in BASIC selber schreiben müsste.

Bei der zweiten Aufgabe würde ich mir fast wünschen der C64 wäre etwas langsamer gewesen. Der hat das korrekte Ergebnis nach 4 Stunden, 44 Minuten, und 40 Sekunden ausgespuckt. Vier Sekunden wäre IMHO cooler gewesen. ?

Display Spoiler

BASIC

   10 PRINT"READ EXPENSES...":DIM E(200):FOR I=1 TO 200:READ E(I):NEXT
  100 TI$="000000":FOR I=1 TO 199:FOR J=I+1 TO 200
  110 IF E(I)+E(J)=2020 THEN PRINT E(I)*E(J):GOTO 200
  120 NEXT:NEXT:PRINT"ERROR PART 1!"
  200 PRINT"PART 1: "TI$:TI$="000000"
  210 FOR I=1 TO 198:FOR J=I+1 TO 199:FOR K=J+1 TO 200
  220 IF E(I)+E(J)+E(K)=2020 THEN PRINT E(I)*E(J)*E(K):GOTO 300
  230 NEXT:NEXT:NEXT:PRINT"ERROR PART 2!"
  300 PRINT"PART 2: "TI$: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

Display More

Wenn man das beschleunigen möchte, wäre der einfachste Schritt einen BASIC-Compiler auf das Programm los zu lassen. Oder es in C und/oder Assembler zu schreiben.

Bot · Vor 5 Minuten

Advent of Code? Schau mal ob du hier fündig wirst!

Manul · December 2, 2020 at 9:12 AM

Quote from __blackjack__

Lösungen mit Mengen oder Wörterbüchern lassen sich sehr schlecht auf CBM BASIC übertragen, weil man sich so etwas in BASIC selber schreiben müsste.

Für die Datentypen gilt das sicherlich, der prinzipielle Algorithmus (nicht für alle Kombinationen die Summe berechnen, sondern merken, welche Zahlen bzw. Summen schon vorgekommen sind, und dann für jede neue Zahl überprüfen, ob die Differenz zu 2020 schon da war) lässt sich aber sicherlich auf den C64 übertragen, bspw. mit Arrays. Damit brauchst Du für den 1. Teil statt ~10.000 nur 200 und für den 2. Teil statt >1.000.000 nur ~10.000 Durchläufe.

Mein CBM-Basic ist nach über 30 Jahren etwas eingerostet, aber ich hab's mal versucht (s.u.). Für Deine Zahlen wirft mein Code im Emulator (mein C64 steht eingemottet bei meinen Eltern im Keller) nach 3:46 Minuten die Lösungen 145875 für Teil 1 und 69596112 für Teil 2 aus. Dein Code braucht im selben Emulator für Teil 1 1:02 Minuten, die Geschwindigkeit scheint also dem echten Rechner vergleichbar zu sein.

Display Spoiler

Code

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

Display More

Linus · December 2, 2020 at 4:35 PM

Ich habe testweise mal ein "privates" Leaderboard erstellt - wer möchte kann diesem hier beitreten: 1021856-38949b07

Bot · Vor einem Moment

Hofei · December 2, 2020 at 4:54 PM

Bin schon an Board

Und auch heute hat mir die Aufgabe gefallen. Das ist mal ein schöner Adventskalender

__blackjack__ · December 2, 2020 at 6:13 PM

Meine BASIC auf dem C64-Lösung für Tag 2 braucht ca. 5½ Minuten. Wobei der Hauptteil davon vom lahmen Diskettenlaufwerk kommen dürfte, denn dieses mal habe ich die Daten nicht ins Programm eingebettet und das parsen der Textdatei geht mit in die Rechenzeit ein.

Display Spoiler

BASIC

   10 TI$="000000":OPEN 2,8,2,"INPUT02,S,R":LN=1:CA=0:CB=0
   20 IF ST<>0 THEN 9000
   30 A=0:REM READ NUMBER A
   40 GET#2,C$:IF C$="-" THEN 60
   50 A=A*10+VAL(C$):GOTO 40
   60 B=0:REM READ NUMBER B
   70 GET#2,C$:IF C$=" " THEN 90
   80 B=B*10+VAL(C$):GOTO 70
   90 REM READ LETTER, SKIP ": ", READ PASSWORD
  100 GET#2,L$:GET#2,C$:GET#2,C$:INPUT#2,PW$
  110 PRINT LN:PRINT"{UP}";:LN=LN+1
 1000 REM SLED RULES
 1010 C=0:FOR I=1 TO LEN(PW$):IF MID$(PW$,I,1)=L$ THEN C=C+1
 1020 NEXT:IF A<=C AND C<=B THEN CA=CA+1
 2000 REM TOBOGGAN RULES
 2010 A$=MID$(PW$,A,1):B$=MID$(PW$,B,1)
 2020 IF A$=L$ AND B$<>L$ OR A$<>L$ AND B$=L$ THEN CB=CB+1
 8990 GOTO 20
 9000 CLOSE 2:PRINT:PRINT CA,CB,TI$

Display More

Manul Coole BASIC-Lösung. Du gehst ganz schön verschwenderisch mit Zeilen um. ?

Mit einem DIM kann man mehrere Arrays dimensionieren und Variablen werden auch automatisch initialisiert. Die Schleife die n( und s( initialisiert ist also überflüssig. Boole'sche Werte sind -1 (wahr) und 0 (unwahr). Hinter THEN kann man das GOTO weglassen und gleich die Zeilennummer schreiben. Bei Vortschrittsausgaben achte ich immer darauf, das der Bildschirm nicht scrollen muss. Das kostet erstaunlich viel Zeit ca. 2K Bytes dafür zu verschieben wenn man sonst schnellere Maschinen gewohnt ist. ? Überarbeitet braucht's nur noch 3 Minuten und 34 Sekunden:

Display Spoiler

BASIC

    0 REM@ £PROTOCOL:£FASTFOR:£FASTARRAY:£SHORTIF
    1 REM@ £BOOLEAN N(:£BYTE I=FAST,J=FAST:£WORD C=FAST:£DATATYPE REAL
   10 TI$="000000":DIM E(200),N(2020),S(2020):S1=0:S2=0:READ E(1)
   20 FOR I=2 TO 200:PRINT I:PRINT"{UP}";
   30 READ E(I):C=2020-E(I):IF N(C) THEN S1=C*E(I)
   40 N(E(I))=-1:IF S(C)>0 THEN S2=S(C)*E(I)
   50 FOR J=1 TO I-1:IF E(I)+E(J)<2020 THEN S(E(I)+E(J))=E(I)*E(J)
   60 NEXT:IF S1>0 AND S2>0 THEN 80
   70 NEXT
   80 PRINT:PRINT"TIME: "TI$:PRINT"PART 1: "S1:PRINT"PART 2: "S2: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

Display More

Die ersten beiden ”komischen” Kommentarzeilen sind für den Basic-Boss Compiler. Damit kompiliert braucht es nur noch 33 Sekunden.

Hofei Also ein bisschen wird das Niveau aber noch steigen. ?

Manul · December 2, 2020 at 6:28 PM

Quote from Linus

Ich habe testweise mal ein "privates" Leaderboard erstellt - wer möchte kann diesem hier beitreten:

Erledigt. Ich bin der Anonyme...

Quote from __blackjack__

Coole BASIC-Lösung. Du gehst ganz schön verschwenderisch mit Zeilen um. ?

Danke! Wie gesagt, es dürfte über 30 Jahre her sein. Wenn ich mich nochmal dran versuche, werde ich Deine Tips beherzigen.

Bot · Vor einem Moment

**dbv** · December 2, 2020 at 6:43 PM Official Post

Ich bin gejoined - als anonymer - und raffe das Leaderboard nicht.

Manul · December 2, 2020 at 6:49 PM

Quote from dbv

und raffe das Leaderboard nicht

Inwiefern? Die Punktevergabe wird erklärt, wenn Du in der Kopfzeile auf "Leaderboard" klickst.

Da wir jetzt fast schon einen Club der Anonymen bilden: Ich bin #1002310.

**dbv** · December 2, 2020 at 6:58 PM Official Post

Ah ok. habsch net gesehen

Bot · Vor einem Moment

Renão · December 2, 2020 at 11:53 PM

Bin auch gerade mal samt meiner null Sterne dazu gekommen.

Wenn ich das morgen raus habe, wie ich die geschachtelte Iteration für Aufgabe 1 funktional abgebildet kriege, gibt es auch neue Sternchen... aber vorher komme ich nicht dazu

Edit:

Habe dann auch mal meine bisherigen Nicht-Lösungen auf öffentlich gestellt, für wen auch immer: https://github.com/renao/advent-of-code_2020

Hofei · December 3, 2020 at 6:55 AM

Heute ist es ja schon etwas schwieriger geworden als die letzten beiden Tage. Aber auch das hat nach wie vor Spaß gemacht.

Schön, dass es immer mehr Leute hier werden

Renão · December 3, 2020 at 11:14 AM

Quote from Renão

Bin auch gerade mal samt meiner null Sterne dazu gekommen.
Wenn ich das morgen raus habe, wie ich die geschachtelte Iteration für Aufgabe 1 funktional abgebildet kriege, gibt es auch neue Sternchen... aber vorher komme ich nicht dazu
Edit:
Habe dann auch mal meine bisherigen Nicht-Lösungen auf öffentlich gestellt, für wen auch immer: https://github.com/renao/advent-of-code_2020

So... habe bislang auch noch auf einem eigenen Branch je Lösung gearbeitet, da ich dachte, dass man evtl. Aufgaben vorziehen kann (wäre ja absurd, wenn es im Rahmen einer Abenteuergeschichte läuft - hätte ich auch selbst mal drauf kommen können ;-)).

Mein fehlschlagender Kram ist erstmal auf master ... mal schauen, inwiefern mich die Arbeit heute weitermachen lässt

Bot · Vor einem Moment

Renão · December 3, 2020 at 1:22 PM

Schön zu sehen, dass es in euren Python-Lösungen diese `itertools` gibt

Gerade weil ich aktuell 'ne neue Sprache lerne, versuche ich den Kram gerade komplett zu Fuß zu machen, da Day1 jetzt auch nicht übertrieben komplex daherkommt.

Dennoch bin ich aufgrund der mir gerade zufliegenden Verständlichkeit eurer Lösungen doch aktuell etwas neidisch (Abgesehen von deinem BASIC __blackjack__ - wirkt mir aktuell alles zu prozessornah ;))

Hofei · December 3, 2020 at 1:53 PM

Quote from Renão

Schön zu sehen, dass es in euren Python-Lösungen diese `itertools` gibt

Jeder wie es sich aussucht ich bin aber schonmal froh um das, was ich mit Python kann.

Du bist ja doch mehrsprachiger unterwegs

Hab mir deine Sprache gestern schonmal angeschaut, verstehen tu ich davon 0.

Ja __blackjack__ spielt mit erhöhtem Handicap. Dennoch hoffe ich auch immer wieder Python Lösungen sehen zu können, um dazu lernen zu können.

EDIT:

Ob @__deets__ und noisefloor den Thread schon entdeckt haben

MistyFlower59469 · December 3, 2020 at 1:57 PM

Ja, aber ich habe Zuviel andere Dinge die ich programmieren will/muss. Da kann ich leider nicht teilnehmen. Ich lese aber gelegentlich hier mit

Bot · Vor einem Moment

Tigerbeere · December 3, 2020 at 1:58 PM

Quote from Hofei

Dennoch hoffe ich auch immer wieder Python Lösungen sehen zu können, um dazu lernen zu können.

Daher sollte ich meine Lösungen besser nicht zeigen

Hofei · December 3, 2020 at 2:10 PM

Also konstruktive Kritik am eigenen Code hilft mir am meisten, um mich im Programmieren verbessern zu können.

Quote from __deets__

Ja, aber ich habe Zuviel andere Dinge die ich programmieren will/muss. Da kann ich leider nicht teilnehmen

Das ist natürlich verständlich - aktuell nimmt es bei mir pro Tag so 30-45 Minuten in Anspruch, da bist du doch sicherlich schneller

Bin jedenfalls nach wie vor Begeistert von dieser Aktion, welche ich so bisher noch nicht kannte.

Tigerbeere · December 3, 2020 at 2:23 PM

Tag1

Code

import csv
summe=0
summand1=0
summand2=0
summand3=0
produkt=0
with open('/home/pi/adventofcode/day1.csv', newline='') as csvdatei:
    liste_summand1 = csv.reader(csvdatei, delimiter=' ')
    for row in liste_summand1:
        summand1=int(row[0])
        with open('/home/pi/adventofcode/day1.csv', newline='') as csvdatei:
            liste_summand2 = csv.reader(csvdatei, delimiter=' ')
            for row in liste_summand2:
                summand2=int(row[0])
                with open('/home/pi/adventofcode/day1.csv', newline='') as csvdatei:
                    liste_summand3 = csv.reader(csvdatei, delimiter=' ')
                    for row in liste_summand3:
                        summand3=int(row[0])
                        summe=summand1+summand2+summand3
                        if summe==2020:
                            produkt=summand1*summand2*summand3
                            print(f'{produkt}')

Display More

Tag2

Code

import csv
with open('/home/pi/adventofcode/day2.csv', newline='') as csvdatei:
    csv*reader*object = csv.reader(csvdatei, delimiter=' ')
    buchstabe=''
    abgleich=''
    min=0
    max=0
    valid=0
    minstring=''
    maxstring=''
    for row in csv*reader*object:
        minmax=row[0]
        text=row[1]                       #Buchstabenspalte
        abgleich=row[2]                   #Wortliste fuer Abgleich
        buchstabe=text[0]                 #Buchstabe zum Abgleich
        minmaxliste=minmax.split("-")
        minstring=minmaxliste[0]
        maxstring=minmaxliste[1]
        min=int(minstring)                #Position1
        max=int(maxstring.replace('-',''))#Position2
        if buchstabe==abgleich[min-1] and not buchstabe==abgleich[max-1]:
            #Buchstabe1 vorgegeben
            #print(f'{buchstabe} {minmax} {abgleich} {minmaxliste} {abgleich[min-1]} {abgleich[max-1]}')
            valid+=1
        elif buchstabe==abgleich[max-1] and not buchstabe==abgleich[min-1]:
            #Buchstabe2 vorgegeben
            #print(f'{buchstabe} {minmax} {abgleich} {minmaxliste} {abgleich[min-1]} {abgleich[max-1]}')
            valid+=1
    print(valid)

Display More

Bot · Vor einem Moment

noisefloor · December 3, 2020 at 7:55 PM

Quote from Hofei

EDIT:
Ob @__deets__ und noisefloor den Thread schon entdeckt haben

Ja, schon. Aber mein Fokus liegt im Moment voll bei ubuntuusers.de und der dort laufenden Aktualisierungsaktion des Wikis.

Gruß, noisefloor

Renão · December 4, 2020 at 12:27 AM

Quote from Hofei

[...]
Hab mir deine Sprache gestern schonmal angeschaut, verstehen tu ich davon 0.
[...]

Ist ein wenig anders alles, deswegen tue ich mich auch gerade schwer aus der OOP-Denke rauszukommen, aber genau das tut auch gerade gut - egal wie viel Hirnakrobatik aktuell von Nöten ist

Wollte ansonsten gerade sagen, dass ich endlich meine ersten beiden Sterne fürs Leaderboard beitragen kann ... dann steht da doch tatsächlich das Tag 1 gar nicht gewertet wird

Advent of Code

Participate now!

Similar Threads

Was der Opa noch wusste...

Tags

Users Viewing This Thread