30 lines
716 B
Scheme
30 lines
716 B
Scheme
(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))
|