2018-02

DEFLNG A-Z
DIM n(250) AS STRING
DIM c(26) AS INTEGER
DIM r AS STRING

'pt 1
OPEN "input02.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
  INPUT #1, r: t = t + 1: n(t) = r: L = LEN(r)
  FOR a = 0 TO 25: c(a) = 0: NEXT: pair = 0: triad = 0
  FOR i = 1 TO L: a = ASC(MID$(r, i, 1)) - ASC("a"): c(a) = c(a) + 1: NEXT
  FOR a = 0 TO 25
    IF c(a) = 2 THEN pair = 1
    IF c(a) = 3 THEN triad = 1
  NEXT
  sum2 = sum2 + pair: sum3 = sum3 + triad
WEND
CLOSE #1
PRINT "part 1:"; sum2 * sum3

'pt 2
r = ""
FOR i = 1 TO t - 1: FOR j = i + 1 TO t
    d = 0
    FOR k = 1 TO L
      IF MID$(n(i), k, 1) <> MID$(n(j), k, 1) THEN d = d + 1: char = k
    NEXT
    IF d = 1 THEN
      FOR k = 1 TO L
        IF k <> char THEN r = r + MID$(n(i), k, 1)
      NEXT
      PRINT "part 2: "; r
    END IF
NEXT: NEXT