advent-of-code-2024/01/1.scm

(import (chicken string))
(import (chicken io))
(import (chicken sort))

(define input
  (with-input-from-file "input"
    (lambda ()
      (let loop ((ret '()))
        (let ((line (read-line)))
          (if (eof-object? line)
              (reverse ret)
              (loop (cons line ret))))))))

(set! input (map string-split input))

(define first-lst (map string->number (map car input)))
(define second-lst (map string->number (map cadr input)))

(set! first-lst (sort first-lst <))
(set! second-lst (sort second-lst <))

(define diff (map abs (map - first-lst second-lst)))

(define result (apply + diff))

(display result)
(newline)