diff options
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 |
