blob: e9426cb5defe016f761837538e94fe7c6e686d70 (
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
28
29
30
|
(import (chicken string))
(import (chicken io))
(import (chicken sort))
(import srfi-1)
(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 (times x)
(length (filter (lambda (a) (= a x))
second-lst)))
(define times-lst (map times first-lst))
(display (apply + (map * first-lst times-lst)))
(newline)
|
