blob: fd9f6077d830f1054903447984b8e0fd08c9337b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(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)
|
