diff options
| -rw-r--r-- | advent-of-code/2023/01/1.rkt | 10 | ||||
| -rw-r--r-- | advent-of-code/2023/01/2.rkt | 10 | ||||
| -rw-r--r-- | advent-of-code/2023/02/1.rkt | 15 | ||||
| -rw-r--r-- | advent-of-code/2023/02/2.rkt | 9 | ||||
| -rw-r--r-- | advent-of-code/2023/04/1.rkt | 8 | ||||
| -rw-r--r-- | advent-of-code/2023/04/2.rkt | 8 | ||||
| -rw-r--r-- | advent-of-code/2023/04/input | 2 | ||||
| -rwxr-xr-x | advent-of-code/2023/05/1.rkt (renamed from advent-of-code/2023/05/part1.rkt) | 2 | ||||
| -rwxr-xr-x | advent-of-code/2023/05/2.rkt (renamed from advent-of-code/2023/05/part2.rkt) | 2 | ||||
| -rw-r--r-- | advent-of-code/2023/lib/obj.rkt | 32 | ||||
| -rw-r--r-- | advent-of-code/2023/lib/utils.rkt | 17 |
11 files changed, 62 insertions, 53 deletions
diff --git a/advent-of-code/2023/01/1.rkt b/advent-of-code/2023/01/1.rkt index 0c69be5..58475ed 100644 --- a/advent-of-code/2023/01/1.rkt +++ b/advent-of-code/2023/01/1.rkt @@ -1,14 +1,8 @@ #lang racket -(define fp (open-input-file "input")) -(define sum 0) +(require "../lib/utils.rkt") -(define (get-lines fp) - (let loop ((lines '())) - (define l (read-line fp)) - (if (eof-object? l) - (reverse lines) - (loop (cons l lines))))) +(define fp (open-input-file "input")) (define lines (get-lines fp)) diff --git a/advent-of-code/2023/01/2.rkt b/advent-of-code/2023/01/2.rkt index 85602da..85a0fd6 100644 --- a/advent-of-code/2023/01/2.rkt +++ b/advent-of-code/2023/01/2.rkt @@ -1,14 +1,8 @@ #lang racket -(define fp (open-input-file "input")) -(define sum 0) +(require "../lib/utils.rkt") -(define (get-lines fp) - (let loop ((lines '())) - (define l (read-line fp)) - (if (eof-object? l) - (reverse lines) - (loop (cons l lines))))) +(define fp (open-input-file "input")) (define lines (get-lines fp)) diff --git a/advent-of-code/2023/02/1.rkt b/advent-of-code/2023/02/1.rkt index 4382a66..ab1e4c2 100644 --- a/advent-of-code/2023/02/1.rkt +++ b/advent-of-code/2023/02/1.rkt @@ -1,13 +1,8 @@ #lang racket -(define fp (open-input-file "input")) +(require "../lib/utils.rkt") -(define (get-lines fp) - (let loop ((lines '())) - (define l (read-line fp)) - (if (eof-object? l) - (reverse lines) - (loop (cons l lines))))) +(define fp (open-input-file "input")) (define lines (get-lines fp)) @@ -51,12 +46,6 @@ #f (possible? (cdr game)))))) -(define (enumerate lst) - (let loop ((i 1) (ret '()) (remain lst)) - (if (null? remain) - (reverse ret) - (loop (+ 1 i) (cons (list (car remain) i) ret) (cdr remain))))) - (apply + (map cadr (filter (lambda (game) (possible? (car game))) diff --git a/advent-of-code/2023/02/2.rkt b/advent-of-code/2023/02/2.rkt index 8975a27..da45d56 100644 --- a/advent-of-code/2023/02/2.rkt +++ b/advent-of-code/2023/02/2.rkt @@ -1,13 +1,8 @@ #lang racket -(define fp (open-input-file "input")) +(require "../lib/utils.rkt") -(define (get-lines fp) - (let loop ((lines '())) - (define l (read-line fp)) - (if (eof-object? l) - (reverse lines) - (loop (cons l lines))))) +(define fp (open-input-file "input")) (define lines (get-lines fp)) diff --git a/advent-of-code/2023/04/1.rkt b/advent-of-code/2023/04/1.rkt index 30ea62f..a1edde2 100644 --- a/advent-of-code/2023/04/1.rkt +++ b/advent-of-code/2023/04/1.rkt @@ -1,14 +1,8 @@ #lang racket +(require "../lib/utils.rkt") (require "../lib/obj.rkt") -(define (get-lines fp) - (let loop ((lines '())) - (define l (read-line fp)) - (if (eof-object? l) - (reverse lines) - (loop (cons l lines))))) - (define fp (open-input-file "input")) (define lines (get-lines fp)) diff --git a/advent-of-code/2023/04/2.rkt b/advent-of-code/2023/04/2.rkt index cf874d2..a9d751f 100644 --- a/advent-of-code/2023/04/2.rkt +++ b/advent-of-code/2023/04/2.rkt @@ -1,14 +1,8 @@ #lang racket +(require "../lib/utils.rkt") (require "../lib/obj.rkt") -(define (get-lines fp) - (let loop ((lines '())) - (define l (read-line fp)) - (if (eof-object? l) - (reverse lines) - (loop (cons l lines))))) - (define fp (open-input-file "input")) (define lines (get-lines fp)) diff --git a/advent-of-code/2023/04/input b/advent-of-code/2023/04/input index ab0c373..f23b21e 100644 --- a/advent-of-code/2023/04/input +++ b/advent-of-code/2023/04/input @@ -194,4 +194,4 @@ Card 193: 13 33 98 37 19 86 32 15 95 96 | 56 90 5 60 24 21 46 73 29 3 58 75 77 Card 194: 77 6 10 48 14 79 73 51 49 25 | 86 12 37 23 43 34 5 89 97 27 53 70 75 19 15 79 45 26 1 73 68 36 2 78 18 Card 195: 94 57 24 37 46 75 73 10 29 5 | 78 25 21 48 22 46 38 76 19 17 64 32 88 99 63 12 20 41 16 7 14 54 81 97 89 Card 196: 76 48 15 89 44 50 79 80 52 78 | 93 55 21 18 73 31 47 20 97 83 87 30 6 24 77 74 67 45 76 65 37 43 42 98 38 -Card 197: 67 21 75 10 9 6 47 88 45 70 | 91 95 58 82 52 50 87 81 78 13 64 53 57 14 55 25 36 76 19 86 56 2 16 54 1 +Card 197: 67 21 75 10 9 6 47 88 45 70 | 91 95 58 82 52 50 87 81 78 13 64 53 57 14 55 25 36 76 19 86 56 2 16 54 1
\ No newline at end of file diff --git a/advent-of-code/2023/05/part1.rkt b/advent-of-code/2023/05/1.rkt index 64b8f84..f0ad5ed 100755 --- a/advent-of-code/2023/05/part1.rkt +++ b/advent-of-code/2023/05/1.rkt @@ -9,7 +9,7 @@ (list-ref (string-split (read-line port) ":") 1))) (map string->number (string-split nums-str " ")))) -(define _ (read-line port)) +(begin (read-line port) (void)) (define (read-line-convert-eof port) (define line (read-line port)) diff --git a/advent-of-code/2023/05/part2.rkt b/advent-of-code/2023/05/2.rkt index 97d07e1..5024c1e 100755 --- a/advent-of-code/2023/05/part2.rkt +++ b/advent-of-code/2023/05/2.rkt @@ -21,7 +21,7 @@ (reverse (pairing (map string->number (string-split nums-str " ")))))) -(define _ (read-line port)) +(begin (read-line port) (void)) (define (read-line-convert-eof port) (define line (read-line port)) diff --git a/advent-of-code/2023/lib/obj.rkt b/advent-of-code/2023/lib/obj.rkt new file mode 100644 index 0000000..9217976 --- /dev/null +++ b/advent-of-code/2023/lib/obj.rkt @@ -0,0 +1,32 @@ +#lang racket + +(provide obj-maker + obj-set + obj-show) + +(define (alist->obj alist) + (lambda key + (if (null? key) + alist + (cadr (assoc (car key) alist))))) + +(define (obj-maker . fields) + (lambda inits + (define alist (map list fields inits)) + (alist->obj alist))) + +(define (obj-set record key value) + (define alist (record)) + (define new-alist + (let loop ((new-list '()) (cur alist) (is-set #f)) + (if (null? cur) + (if is-set + new-list + (cons (list key value) new-list)) + (let () + (if (eq? key (caar cur)) + (loop (cons (list key value) new-list) (cdr cur) #t) + (loop (cons (car cur) new-list) (cdr cur) is-set)))))) + (alist->obj new-alist)) + +(define (obj-show x) (x))
\ No newline at end of file diff --git a/advent-of-code/2023/lib/utils.rkt b/advent-of-code/2023/lib/utils.rkt new file mode 100644 index 0000000..946bb86 --- /dev/null +++ b/advent-of-code/2023/lib/utils.rkt @@ -0,0 +1,17 @@ +#lang racket + +(provide get-lines + enumerate) + +(define (get-lines fp) + (let loop ((lines '())) + (define l (read-line fp)) + (if (eof-object? l) + (reverse lines) + (loop (cons l lines))))) + +(define (enumerate lst) + (let loop ((i 1) (ret '()) (remain lst)) + (if (null? remain) + (reverse ret) + (loop (+ 1 i) (cons (list (car remain) i) ret) (cdr remain)))))
\ No newline at end of file |