Advent of Code

[__blackjack__]

So kann eine BASIC-Lösung für Tag 1 aussehen:

Code: Alles auswählen

10 DEFINT A-Z:OPEN"I",#1,"INPUT.TXT":R1=0:R2=0:DI=50
20 WHILE NOT EOF(1):LINE INPUT #1,A$:D$=MID$(A$,1,1):D=VAL(MID$(A$,2))
30 R2=R2+D\100:D=D MOD 100:IF D=0 THEN 70
40 DO=DI:DI=DI+D*((D$="L")*2+1):IF DI=0 THEN R2=R2+1:GOTO 70
50 IF DI<0 THEN DI=DI+100:IF DO<>0 THEN R2=R2+1:GOTO 70
60 IF DI>=100 THEN DI=DI-100:R2=R2+1
70 IF DI=0 THEN R1=R1+1
80 WEND:PRINT R1;R2:SYSTEM

Das läuft so knapp 5 Minuten unter CP/M auf einem Intel 8080 mit 2Mhz.