diff options
| author | Mistivia <i@mistivia.com> | 2024-02-17 12:27:24 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2024-02-17 12:27:24 +0800 |
| commit | 8fcd7e1ed30a8b04d4d658b2d8c6acad938424d4 (patch) | |
| tree | 1cf064396cb0ddfdf77b2d3d6b56ebdd27c0ba9b /advent-of-code/2023/lib/utils.rkt | |
| parent | 050fa7cbfb6b7cf293fb02e06daf123b3e6af816 (diff) | |
add aoc 2022
Diffstat (limited to 'advent-of-code/2023/lib/utils.rkt')
| -rw-r--r-- | advent-of-code/2023/lib/utils.rkt | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/advent-of-code/2023/lib/utils.rkt b/advent-of-code/2023/lib/utils.rkt deleted file mode 100644 index 40c6f6b..0000000 --- a/advent-of-code/2023/lib/utils.rkt +++ /dev/null @@ -1,24 +0,0 @@ -#lang racket/base - -(provide get-lines - enumerate - repeat) - -(define (repeat n e) - (let loop ((i 0) (ret '())) - (if (>= i n) - ret - (loop (+ 1 i) (cons e ret))))) - -(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 |
