blob: b1a7faff029e35174d16f93049fcfa6b590e6ad5 (
plain) (
blame)
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
(require 's)
(require 'f)
;; task 1
(defun digit-p (c)
(and (> c ?0)
(<= c ?9)))
(defun aocd1-sum-values (lines)
(-sum
(-map (lambda (line)
(let ((digits (-filter #'digit-p (string-to-list line))))
(string-to-number (string (-first-item digits) (-last-item digits)))))
lines)))
(let ((lines (s-lines (s-trim (f-read "~/Downloads/input.txt")))))
(aocd1-sum-values lines))
;; task 2
(defun replace-written-numbers (input)
(with-temp-buffer
(insert input)
(let ((start 1))
(while (< start (point-max))
(format-replace-strings
'(("oneight" . "18")
("twone" . "21")
("threeight" . "38")
("fiveight" . "58")
("sevenine" . "79")
("eightwo" . "82")
("eighthree" . "83")
("nineight" . "98"))
nil start (min (+ 10 start) (point-max)))
(format-replace-strings
'(("one" . "1")
("two" . "2")
("three" . "3")
("four" . "4")
("five" . "5")
("six" . "6")
("seven" . "7")
("eight" . "8")
("nine" . "9"))
nil start (min (+ 5 start) (point-max)))
(setq start (1+ start))))
(buffer-string)))
(let ((lines (s-lines (s-trim (f-read "~/Downloads/input.txt")))))
(aocd1-sum-values (-map #'replace-written-numbers lines)))
|
