2018-06

DEFLNG A-Z
TYPE tPoint
  x AS INTEGER
  y AS INTEGER
END TYPE
DIM p(50) AS tPoint
DIM c(50) AS LONG

OPEN "input06.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
  t = t + 1: INPUT #1, p(t).x, p(t).y
WEND
CLOSE #1

FOR x = 0 TO 400
  FOR y = 0 TO 400
    dsum = 0: dmin = 999: imin = 0: eq = 0
    FOR i = 1 TO t
      d = ABS(x - p(i).x) + ABS(y - p(i).y): dsum = dsum + d
      IF d = dmin THEN eq = 1
      IF d < dmin THEN dmin = d: imin = i: eq = 0
    NEXT
    IF dsum < 10000 THEN sum = sum + 1
    IF eq = 0 THEN c(imin) = c(imin) + 1
    IF x = 0 OR y = 0 OR x = 400 OR y = 400 THEN c(imin) = -99999
  NEXT
NEXT

FOR i = 1 TO t
  IF c(i) > c(imin) THEN imin = i
NEXT
PRINT "part 1:"; c(imin)
PRINT "part 2:"; sum