diff options
| author | Mistivia <i@mistivia.com> | 2024-02-24 23:07:57 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2024-02-24 23:12:21 +0800 |
| commit | fc4ec74e50ba362af054dca79d79dd4b7853ea5b (patch) | |
| tree | b3c54344bc99d53d3040869e9ee80c3184e16ade /advent-of-code/2023/08/2.rkt | |
| parent | 5898fa29a56f699bebb4644188348840b26207d9 (diff) | |
reformat code
Diffstat (limited to 'advent-of-code/2023/08/2.rkt')
| -rw-r--r-- | advent-of-code/2023/08/2.rkt | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/advent-of-code/2023/08/2.rkt b/advent-of-code/2023/08/2.rkt index 35ca47a..c0c55ea 100644 --- a/advent-of-code/2023/08/2.rkt +++ b/advent-of-code/2023/08/2.rkt @@ -40,15 +40,15 @@ (define (simulate start) (let loop ((i 0) (cur start)) (if (is-end? cur) - i - (let () - (define instruction (next-instruction)) - (define (next-point point) - (define mapping (hash-ref the-map point)) - (if (char=? instruction #\L) - (car mapping) - (cadr mapping))) - (loop (+ 1 i) (next-point cur)))))) + i + (let () + (define instruction (next-instruction)) + (define (next-point point) + (define mapping (hash-ref the-map point)) + (if (char=? instruction #\L) + (car mapping) + (cadr mapping))) + (loop (+ 1 i) (next-point cur)))))) (define starts |
