2021/day08.scm

(import (chicken io))
(import (chicken string))
(import (chicken format))
(import srfi-113)
(import srfi-1)
(import srfi-128)

(define (summap a b) (foldl + 0 (map a b)))

(define (displayln x) (format #t "~s~%" x))

(define (split-line line)
  (let ((halves (string-split line "|")))
    (map string-split halves)))

;; PART 1
(define (is-1478 pattern)
  (let ((len (string-length pattern)))
    (not (or (eq? len 5) (eq? len 6)))))

(define (count-1478 parsed)
  (let-values (((patterns output) (apply values parsed)))
    (count is-1478 output)))

(define lines (read-lines))
(define parsed-lines (map split-line lines))

(let ((part1 (summap count-1478 parsed-lines)))
  (display "part1: ")
  (displayln part1))