#!/usr/bin/guile -s
!#

(add-to-load-path (format #f "~a/2024" (getcwd)))
(add-to-load-path (format #f "~a/.." (dirname (current-filename))))

(use-modules
 (aoc-utils)
 (srfi srfi-1)
 (srfi srfi-9)
 (srfi srfi-64)
 (ice-9 regex)
 (ice-9 getopt-long))

(define (xmas? lst)
  (or (equal? lst '(#\X #\M #\A #\S))
      (equal? lst '(#\S #\A #\M #\X))))

(define (get-posibilities input x y)
  (let ((retval '()))
    (if (> x (- (length input) 3))
        (set! retval ()))))

(define (part1 input)
  (display input)
  0)

(define (part2 input)
  0)

(define (run-tests)
  (test-begin "day03" 1)
  (test-equal 18 (part1 (file->matrix "test.txt")))
  (test-end "day03"))

(define option-spec
  '((help (single-char #\h) (value #f))
    (test (single-char #\t) (value #f))))

(define (help)
  (display "main.scm [options] [FILE]
-h, --help   Display this help.
-t, --test   Run test suite
"))

(define (run-parts filename)
  (let ((input (file->matrix filename)))
    (display "Part1: ")
    (display (part1 input))
    (newline)
    (display "Part2: ")
    (display (part2 input))
    (newline)))

(define (main)
  (let* ((options (getopt-long (command-line) option-spec))
         (help-wanted? (option-ref options 'help #f))
         (test-wanted? (option-ref options 'test #f))
         (files (option-ref options '() '())))
    (cond (help-wanted? (help))
          (test-wanted? (run-tests))
          ((= (length files) 1) (run-parts (car files)))
          (else (help)))))

(main)