| 1234567891011121314151617 |
- #lang racket/base
- (require "../../lib/utils.rkt")
- (define lines
- (call-with-input-file "input"
- (lambda (fp)
- (get-lines fp))))
- (define elves (split-list-by "" lines))
- (define (elf-sum elf)
- (apply + (map string->number elf)))
- (define elf-sums (sort (map elf-sum elves) >))
- (+ (car elf-sums) (cadr elf-sums) (caddr elf-sums))
|
