You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
772 B
QBasic
33 lines
772 B
QBasic
2 years ago
|
REM Advent of Code 2022: Day 3, part 1
|
||
|
|
REM Written in Applesoft BASIC
|
||
|
|
|
||
|
|
10 ONERR GOTO 900
|
||
|
|
20 PT = 0
|
||
|
|
30 PRINT CHR$ (4),"OPEN INPUT"
|
||
|
|
40 PRINT CHR$ (4),"READ INPUT"
|
||
|
|
100 S$ = ""
|
||
|
|
110 GET C$: GET D$
|
||
|
|
120 IF ASC (C$) = 13 GOTO 200
|
||
|
|
130 S$ = S$ + C$
|
||
|
|
140 GOTO 110
|
||
|
|
200 L = LEN (S$) / 2
|
||
|
|
210 LS$ = LEFT$ (S$,L)
|
||
|
|
220 RS$ = RIGHT$ (S$,L)
|
||
|
|
230 LL = LEN (LS$)
|
||
|
|
240 RL = LEN (RS$)
|
||
|
|
250 FOR I = 1 TO LL
|
||
|
|
260 FOR J = 1 TO RL
|
||
|
|
270 IF MID$ (LS$,I,1) = MID$ (RS$,J,1) GOTO 400
|
||
|
|
280 NEXT J
|
||
|
|
290 NEXT I
|
||
|
|
400 PR = ASC ( MID$ (LS$,I,1))
|
||
|
|
410 PR = PR - 64
|
||
|
|
420 IF PR > 32 THEN PP = PR - 32
|
||
|
|
430 IF PR < 32 THEN PP = PR + 26
|
||
|
|
440 PT = PT + PP
|
||
|
|
450 PRINT "FOUND: "; MID$ (LS$,I,1);" PRIO ";PP;" TOTAL: ";PT
|
||
|
|
500 GOTO 100
|
||
|
|
900 PRINT CHR$ (4),"CLOSE"
|
||
|
|
910 END
|
||
|
|
|